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ASK THE DOCTOR - PART I 

Robert M. Tripp, Ph. D. 
TheCOMPUTERIST, Inc. 
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The Rockwell International AIM 65, the Synertek SYM-1 and the 
Commodore KIM-1 form a closely knit family of microcomputers. 
Of course they all use the 6502 microprocessor, but the family 
resemblence is much deeper than that. A few of the features that 
make the three boards so similar are: 

1. Each is a "bare" single board microcomputer without a case, 
built-in power supply, etc. 

2. They have the same basic I/O support: 

A. 20 mA current loop TTY interface; and, 

B. Low Speed Audio Cassette interface. All three computers 
support the KIM-1 cassette tape format. This means that a 
cassette tape generated in the KIM-mode on any of the 
machines can be read on any other machine. This tape cassette 
compatibility is so complete that it is possible to directly inter- 
connect a KIM to SYM, or KIM to AIM, or SYM to AIM via the 
the audio cassette interface - without the cassette! Simply take 
the Audio Out HI from one computer and connect it to the 
Audio IN of the other. Then run the Load KIM format cassette 
program on the second computer and the Write KIM format 
cassette program on the first computer. 

3. They have a compatible bus structure. Each computer has two 
dual 22 pin edge connectors with essentially the same 
connections. The Expansion connectors have identical placement 
of all the Address, Data, Control and Power lines. The Application 
connectors have identical placement of most signals that are 
common on the three computers - Port A and Port B I/O, Power 
and Ground, Audio Cassette I/O, TTY I/O - plus some additional 
signals which are unique to each computer. This bus similarity is a 
very important component of the AIM/SYM/KIM (ASK) family 
compatibility. 

4. The SYM intentionally "duplicates" many of the KIM Monitor 
routines, and has a similar Hex Keypad and LED Display on board. 
The reader is hereby warned to be careful when using SYM 
routines which proport to be 'the same as" the KIM routines. As 
will be shown in a later column, there are often minor, but 
important differences between two routines wTiich at first appear 
identical. For example, in the KIM PACKT subroutine, a successful 
return is signaled by the Zero Flag being Set; an error return by the 
Zero Flag being Cleared. The similar SYM PACKT subroutine 
performs the same packing function, but signals a successful 
return with the Carry bit Cleared; an error return by the Carry bit 
Set. So, be careful. 

An AIM/SYM/KIM Compatibility Example 

One way to understand the nature of the similarities and 
differences between the ASK family members is to examine in 
detail a common situation which involves both hardware and 
software for the three systems. MEMORY PLUS(tm) is a 
multi-purpose board that was designed for the KIM-1 long before 



the SYM or AIM were even a gleam in their creators' eyes. It 
contains 8K RAM, provision for up to 8K EPROM, a 6522 Versatile 
Interface Adapter, and an EPROM Programmer. Since it was 
designed to work on the KIM-1, it obviously is compatible with 
that computer. The question is: Is the MEMORY PLUS compatible 
with the SYM and AIM? The answer is Yes, No, and Maybe. Let's 
examine this seeming paradox in some detail. 



YES 



The 8K RAM and the 8K EPROM work directly with the KIM, SYM 
and AIM with no modification. In fact, the same connector cable 
may be used to connect the MEMORY PLUS to any one of the 
computers. This exact compatibility is due to the fact that all that 
MEMORY PLUS requires for operating the RAM and EPROM are 
the Address, Data, Control and Power lines, and these are all 
positioned identically on the Expansion connector. 



NO 



The addressing of the 6522 VIA I/O was designed to use the K5 
chip select that is generated by the KIM and which appears on the 
Application connector. This same signal is generated by the SYM 
and makes the addressing of the 6522 VIA identical to that of the 
KIM. The AIM does not generate this signal. Therefore, without 
some sort of modification, the AIM can not use the 6522 VIA, and 
since this is the heart of the EPROM Programmer, can not program 
EPROMs. Fortunately, there are a couple of unused gates on the 
MEMORY PLUS and a minor wiring modification can be made so 
that the MEMORY PLUS will itself generate the equivalent of the 
K5 signal and permit the AIM to use the 6522 VIA and EPROM 
Programmer. This does point out a small, but significant 
difference, between the bus signals of the KIM, SYM and AIM. In 
general, the SYM made much more of an effort to be KIM 
compatible than the AIM did. This example where the KIM and 
SYM generate the K1, K2, K3, K4, and K5 signals and the AIM does 
not, is probably the greatest difference in the hardware as seen on 
the Application and Expansion busses. 



MAYBE 

Since the KIM does not do all of the address decoding required for 
a system beyond the initial 8K used by the KIM on board, any 
additional memory device must generate a DECODE signal which 
enables the KIM memory at the proper times. The MEMORY PLUS 
board has circuitry to generate the DECODE. The SYM and the 
AIM do all of the required address decoding for their operation 
on-board, and do not therefore require this signal. The DECODE 
signal may be simply ignored in these two systems by not 
connecting it from the MEMORY PLUS to the SYM or AIM. 

There are other addressing space differences between the three 
systems, which may or may not be important in a particular 



situation. All three have RAM in locations 0000 to 03FF. This 
includes the Page Zero and Stack locations. The KIM does not use 
0400 to 16FF, but uses 1700 to 177F for I/O and Timers, 1780 to 
17FF for RAM, and 1800 to 1FFF for the ROM Monitor. The AIM 
has 0400 to 0FFF available for on-board RAM expansion, 1000 to 
9FFF are available for User expansion, A000 to AFFF is used for I/O 
and System RAM, and the remainder of the memory is allocated 
for various ROMs: BOOO to CFFF for BASIC, DOO0 to DFFF for 
Assembler, and E0O0 to FFFF for Monitor. The SYM has 0400 to 
OFFF for on board RAM expansion, 1000 to 7FFF for User 
expansion, 8000 to 8FFF for Monitor ROM, 9000 to 9FFF reserved 
for Monitor expansion, A000 to AFFF for System RAM and I/O, 
BOOO to BFFF for User expansion, C000 to DFFF for BASIC ROM, 
EOOO to FF7F reserved for Assembler/Editor ROM, and FF80 to FFFF 
for SYSTEM RAM Echo locations. The above listing of memory 
allocation should make it obvious that the three systems each 
have I/O and Monitors located in different places, so that software 
calling on the I/O or Monitor will have to be at least different in 
the addresses used. On the MEMORY PLUS this shows up when the 
host computer's Port B is used to generate three of the addresses 
required by the EPROM Programmer. While the three lines, PB0, 
PB1, and PB2 are all mapped to the same Application connector 
locations, the address of the I/O device controlling the port is 
different. In fact, the I/O device on the KIM is a 6530 and the 
device on the SYM and AIM is a 6522! All this does is require 
different addresses within the EPROM Programming program. 
Another memory mapping difference is in the location of the 
interrupt vectors. Each of the three computers uses different 
addresses to handle the interrupts. The MEMORY PLUS 
programmer uses the IRQ interrupt, and must therefore set up the 
IRO vector in a different location on the KIM, SYM or AIM. Again, 
this is a minor problem, but is an incompatibility. Finally, since the 
Monitor is in a different location in each computer, a return to the 
Monitor at the end of the EPROM program will be to a different 
address for each. If the MEMORY PLUS used the on-board Timers, 
then it would again require some modifications to the software. In 
the case of the KIM, the Timer is of the 6530 variety; the SYM and 
AIM have 6522 types. This would require a different set of 
parameters as well as different addresses. As a matter of fact, 
MEMORY PLUS uses its own 6522 Timer, and so this problem does 
not arise. 

One final note of caution on the memory allocation of the three 
computers. Even though they all support RAM in locations 0000 to 
03FF, the use of this RAM, especially the end of Page Zero, is quite 
different between them, both in the amount of Page Zero RAM 
used and the use of particular locations. In addition, while the KIM 
and the SYM do not use Page One for anything, in general, except 
as the Stack, the AIM makes extensive use of Page One. This 
variation in use of Page Zero and Page One will often require that 
existing programs undergo some re-definition of addresses and a 
re-assembly before they can be moved from one computer to 
another, even when the Monitor of the computer is not being used 
as part of the program. 

SUMMARY 

The AIM/SYM/KIM family of 6502 based microcomputers have a 
lot in common; but they also have some significant differences. In 
most cases these differences are not so great that they can not be 
overcome with some careful modification to existing hardware 
and/or software. But, significant differences do exist, and any user 
who plans to use a variety of these systems should be aware of the 



potential problems that exist. Subsequent columns will go into 
more detail on the similarities and differences between the ASK 
family members. 

SYM Cassette Tape Problems 

There are two problems with the SYM tape service that users 
should be aware of. The first is that the SYM hardware has a filter 
circuit that is used in shaping the input signal from the cassette 
recorder. This particular circuit is very sensitive and will not work 
reliably with all tape recorders. It apparently was optimized to a 
particular type of unit, possibly a SuperScope C-190; and is not 
very optimal for a large number of other units. Several suggestions 
have been made to improve this circuit. One is to replace the 
resistor R92 (see page 4-9 in the SYM Reference Manual for a 
circuit diagram) which is a 1K with a 3.3K. Another idea that has 
been used was to put a .01 MFD capacitor in parallel with C15 
which is a .47 MFD. I have NOT had a chance to try either of these 
and do not guarantee that they either work or that they will not 
destroy your system. I am merely passing on a couple of 
suggestions which were given to me. I hope to be able to give a 
more complete and tested set of changes by next month. 

The second tape problem has to do with reading KIM format tapes. 
As you probably know, the KIM format uses an ASCII "/" character 
to signal the end of data. This character has a hex value of 2F. The 
SYM Monitor has software to detect the end of data character 
which properly detects an ASCII "/" as it should. However, it also 
has software which erroneously thinks that an ASCII "2" followed 
by an ASCII "F" which when combined make a hex 2F data byte, is 
a terminator. This means that anytime your data has a 2F in it, as in 

4C 13 2F JMP S2F13 (Jump to address 2F13) 
it will mistake the legitimate 2F data as a "/" character and think 
that it has reached the end of the data. Since the following bytes of 
data will be considered to be the check digits, and will not be 
correct, the SYM will give you an error and stop loading. This can 
be very disheartening. Synertek is aware of the problem and is 
supposed to fix it, but no fix has been received here yet. 

One way I have overcome this difficulty, with some difficulty, is to 
load my program into the KIM, change any 2F data to an FF, and 
then either make a cassette tape or dump the data directly into the 
SYM from the KIM via the Audio Out HI on the KIM to the Audio 
IN on the SYM. Then I have to go to the SYM and change all of the 
FF's which were substituted for the 2F's back to their original 2F 
value. This is cludgy, but it works. If you do not have a KIM handy, 
however, you are out of luck. 



Coming Attractions 

Future columns will cover all sorts of interesting information about 
the AIM, SYM, KIM (and maybe SUPERKIM). If you have 
discovered any useful bits of information about these machines, 
please drop me a line and I will try to include the info in a future 
column. In this way the material can be widely disseminated 
without your having to write a whole article about it. 

Note: MEMORY PLUS(tm) is manufactured by The COMPUTER- 
IST, Inc., P.O. Box 3, S. Chelmsford, MA 01824. It currently retails 
for $20000 



ASK THE DOCTOR - PART II 
AN ASK EPROM PROGRAMMER 

Robert M. Tripp, Ph. D. 
TheCOMPUTERIST, Inc. 

P.O. Box 3 
So. Chelmsford, MA 01 824 



One of the most frequently asked questions about the ASK 
(AIM/SYM/KIM) family of microcomputers is: "Can a program that 
was written for one of the micros run on either of the others?" The 
answer is normally no. While the three micros share a lot - common 
expansion bus, similar application connector, KIM tape format ... 
they do have minor differences in their use of page zero and page 
one, some greater differences in their memory and I/O allocations, 
and large differences in their monitor subroutines. Therefore, in 
general, the answer to the question is: "No, a program written to run 
on one will not run on the others without modification." This answer 
may lead the creative programmer to wonder what it would take to 
write programs which would run on all three machines, without 
requiring customization for each. What problems would be encoun- 
tered? What techniques could be used to reduce the problems? 
What about...? 

I faced the three-machine problem for a practical reason, the 
MEMORY PLUS™ board that my company makes is hardware com- 
patible on the three systems. Part of the package is a cassette tape 
with a Memory Test program and an EPROM Programming program. 
It would be awkward to have to provide three sets of programs on 
the tape and expensive to have to print up three different sets of 
program listings. Would it be feasible to write a single program? The 
answer turned out to be: "Yes". The program for the EPROM 
Programmer is presented here in its entirity. 

There are two major types of compatibility problems. The first is 
that the three monitors each have a different set of support 
subroutines. Sometimes they may have identical subroutines, but 
usually the subroutines are not identical, and often are not even 
close! In this particular program, this was not a problem since the 
program did not use any monitor subroutines. The second major 
problem is that various important locations in memory or in memory 
mapped I/O are different on the three systems. Examples are the re- 
entry address for returning to the monitor at the end of the program, 
the location of the interrupt vector, and the address of the 
peripheral I/O port. In this program all three of these address 
problems were encountered. The solution for the addressing 
problem is fairly simple and will handle all three addressing 
problems - if you understand the Indirect Indexed mode of ad- 
dressing on the 6502. If you are totally unfamiliar with this ad- 
dressing mode, you should consult your programming manual at this 
point and find out about it. If you are familiar with it, then this 
review may be useful. 

The Indirect Indexed addressing mode on the 6502 works by having 
a base pointer in a pair of page zero locations which is used to point 
to some other location in memory. The contents of the page zero 
locations are combined with current contents of the Y register to 
form the final address for an instruction. The assembler form of the 
instruction is LDA (POINT), Y in the standard MOS Technology syn- 
tax or LDAIY POINT in the MICRO-ADE syntax which is generally 
used in MICRO. In either case, what results is a form of addressing in 
which the page zero pointer forms the base address and the contents 
of the Y register allow this address to be modified within a range of 



00 to FF. If the pointer value was 2800, then the effective range of 
the indirect indexed instruction would be 2800 (with Y = 00) to 28FF 
(with Y = FF). The page zero pointer is set up in two consecutive 
bytes, with the low byte of the address first followed by the high 
byte of the address. In our example, if POINT was the page zero ad- 
dress 0006, then location 0006 would contain 00 (the low byte of the 
indirect address) and 0007 would contain 28 (the high byte of the in- 
direct address). Since the only problem we have to solve for the 
EPROM Programmer is one of different addresses for the three 
systems, the problem reduces to three steps: 

1 . Determine which system we are runnng on: AIM, SYM or KIM. 

2. Set up appropriate indirect address pointers. 

3. Access the variable addresses via the indirect address pointers 
using the Indirect Indexed addressing mode. 

Now Let's examine the program in a little detail to see how it ac- 
tually accomplishes all of this. 

The Program 

The program is assembled to run entirely on page zero. It uses a 
6522 VIA chip which is located on the MEMORY PLUS board for a 
lot of its I/O and timing. The registers within the VIA that are used 
are listed under VIA REGISTER OFFSETS. These offsets will be used 
within the program to load the Y register prior to making an Indirect 
Indexed instruction call so that the appropriate VIA internal register 
will be accessed. The first six locations in page zero are used by the 
program for parameters to control where the data to be placed into 
the EPROM starts in memory, ends in memory, and where it is to be 
placed in the EPROM. This information is filled in by the operator 
before running the program. Location "VIA" is an indirect pointer to 
the MEMORY PLUS VIA chip. This normally will be at location 6200 
and could have been addressed directly by the program. But, since it 
could be in another address, it was decided to handle it through the 
Indirect Indexed mode. The "JMPMON" location contains the Op- 
code for a JMP. This is used in conjunction with the contents of the 
next two bytes, "MONTOR", to re-enter the system monitor at the 
end of the program or when an error is encountered. The actual 
monitor re-entry address value is filled in by the program. It appears 
as 0000 in the listing, but will be altered early in the program as we 
shall see below. The "INTVEC" is an indirect pointer to the IRQ in- 
terrupt vector which is used as part of the timing service of the 
program. This will be properly filled in at the beginning of the 
program from a table. "PBDD" and "PBD" are pointers to the Port B 
Data Direction and Port B Data registers. These will also be filled in 
from a table at the start of the program and will be used in Indirect 
Indexed instructions. 

The program begins execution at location 0011, after the user has 
used his monitor to fill in the appropriate values in the parameters in 
locations 0000 to 0005. The first three instructions clear all of the 
status bits by pushing a 00 onto the stack from A and popping it into 
the status register. 



Locations 0015 through 0027 determine which microcomputer the 
program is running on by testing the contents of a ROM location. 
The contents of location FFFD is specific to each machine. This is 
the high order byte of the Reset Interrupt Vector. For the SYM this 
will be an 8B; for the AIM an E0, and for the KIM a 1C. The X register 
is loaded with a value which is the start of a table of values which 
will be moved into locations 0009 through 0010 to fill in the MONI- 
TOR, INTVEC, PBDD, and PBD pointers discussed above. The in- 
struction at 0028 is unique to the SYM and is required to permit the 
program to access some of the SYM's protected memory locations. 
It is not executed by the program for KIM or AIM. 

Locations 002B through 0035 move the appropriate table from its 
original location at the end of the program into the working indirect 
area. The AIM table starts at 00D0; the KIM table at 00D8; the SYM 
atOOEO. 

By the time we reach ENTER at location 0036, two important things 
have been done. First, we have determined which machine we are 
running on. Second, using this information, we have set up our in- 
direct pointers which will be used by the remainder of the program 
to address the machine specific addresses. At ENTER we again set the 
status bits to zero. This is done so that a user with a different com- 
puter could still use this program. He would do this by manually set- 
ting up the pointers in 0009 through 0010 and then starting at 0036 - 
ENTER. 

Locations 003A through 0044 fill in the system interrupt vector to 
point to the interrupt servicing routine of the program which starts 
at00C5. This is a good place to examine the workings of the Indirect 
Indexed addressing. The Y register is set to 00. The A register is 
loaded with the low byte of the interrupt service routine address. 
This value will be C5 since the routine starts at 0OC5. This is then 
stored in the system interrupt vector which is addressed by adding 
the contents of Y (00) to the address contained in INTVEC. For the 
AIM INTVEC will have been set to A400; for the KIM INTVEC will be 
17FE; for the SYM A67E. So the effective address will be A400 for the 
AIM (A400 + 00= A400), 17FE for the KIM and A67E for the SYM. 
The A register is then loaded with the high byte of the interrupt ser- 
vice routine address, 00 since the routine is in page zero. The Y 
register is incremented so that it now contains a 01. When A is now 
stored with Indirect Indexed mode through INTVEC, it goes into 
A401 ontheAIM(A400 + 01 = A401), 17FF on the KIM and A67Fon 
the SYM. If you are not clear at this point as to how this works, then 
STOP. The rest of this article will make no sense until you under- 
stand the basics of the Indirect Indexed mode. Re-read the article to 
this point, consult your manual, ask a friend. 

Using the same techniques of setting Y to an offset value, loading A 
with the value to use, and storing in the Indirect Indexed mode, the 
VIA is initialized. 

The instructions from 005D through 0078 set up the VIA for output. 
One additional trick is used here. While we normally think of the Y 
register in connection with the Indirect Indexed mode of addressing, 
the X register can also be used for this mode of addressing - but only 
under one special condition. That condition is when the index value 
is 00. In this condition, the Indirect Indexed mode and the Indexed 
Indirect mode both collapse to the simple Indirect mode. There are 
several places in which we take advantage of this fact so that the X 
register can be set to zero once and used several times for ad- 
dressing. This section of code now gets the data from the indirect 
pointers that the operator set into locations 0000 through 0005 and 
outputs the data to the EPROM Programmer. 



Locations 0079 through 008A first set a timer in the VIA going for 
the 50 millisecond period which is required to program one location 
on the EPROM. Then the Peripheral Control Register on the VIA is 
set to enable the programming pulse to the EPROM. Again, Indirect 
Indexed addressing is used so that the VIA does not have to be at 
6200. If it is in any other address, the operator simply sets the poin- 
ter at VIA (0006, 0007) before starting the program. Everything else is 
automatic. 

Locations 008B to 008E form a loop which waits until an interrupt 
has occurred and been serviced. If you look down at the interrupt 
routine starting at 00C5 you will see that Y is changed so that it is no 
longer equal to OC. At this point the WAIT test will fail and the 
program will move on to VERIFY. 



Locations 008F through 00C4 perform a series of tests and pointer 
updates. When the program reaches the end of the data, or if it 
detects an error, it makes a JSR to JMPMON. JMPMON then jumps 
to a re-entry point for the appropriate monitor as set up from the 
table at the beginning of the program. The reason for making the JSR 
is to save the address of where we are coming from to be displayed 
by the monitor as an indication of why we exited: successful com- 
pletion or one of the three errors. The JMPMON permits us to go to 
the correct monitor. While it would have been possible to have the 
initialization code change each of the four JSR's to JSR directly to 
the appropriate monitor, this obviously would have entailed more 
code and would not have any benefit. 

The re-entry to the monitor is the only place where this code makes 
use of the system monitor, and wouldn't you know it- each monitor 
handles the re-entry slightly differently. They each display an ad- 
dress which is related to the JSR from which it came, but each one 
displays a slightly different address. On the successful completion 
return which is at 00B7, the AIM displays 00B8, the KIM displays 
00B9, and the SYM displays 00BA. It would have been possible to 
write some additional code to take care of the address before retur- 
ning to the monitor, but this did not seem to be a serious enough 
problem to warrant the effort. But it does point out the problems 
one can encounter in using the "similar-but-different" monitor 
subroutines. 

Locations 00C5 through 00CF are the interrupt service. When the in- 
terrupt occurs, it is vectored here due to the setup that took place 
earlier in the program. The VIA is changed from programming mode 
to verify mode and the interrupt is cleared. In the process the Y 
register is changed so that the WAIT test will permit the program to 
recognize that an interrupt has occurred and to continue. 

The ATABLE, KTABLE and STABLE are the pointer values for the 
AIM, KIM and SYM respectively. At the start of the program they are 
moved into a standard set of locations starting at 0009 (MONTOR). 
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PROM PROGRAMMER 10 FEBRUARY 1979 

PROM ORG $0000 

ACCESS * $8B86 SYM-1 ACCESS ENTRY 

VIA REGISTER OFFSETS 

ORB * $0000 OUTPUT REGISTER B 
ORA * $0001 OUTPUT REGISTER A 







DDRB 


# 


$0002 


DATA DIRECTION REGISTER B 






DDRA 


* 


$0003 


DATA DIRECTION REGISTER A 






TTWOL 


* 


$0008 


TIMER TWO LOW 






TTWOH 


* 


$0009 


TIMER TWO HIGH 






PCR 


* 


$000C 


PERIPHERAL CONTROL REGISTER 






IFR 


* 


$000D 


INTERRUPT FLAG REGISTER 






IER 


* 


$000E 


INTERRUPT ENABLE REGISTER 


0000 00 




SAL 


- 


$00 


STARTING ADDRESS LOW 


0001 00 




SAH 


= 


$00 


STARTING ADDRESS HIGH 


0002 00 




PRMLOW 


= 


$00 


EPROM LOW ADDRESS 


0003 00 




PRMHGH 


= 


$00 


EPROM HIGH ADDRESS 


0004 00 




EAL 


= 


$00 


END ADDRESS LOW 


0005 00 




EAH 


= 


$00 


END ADDRESS HIGH 


0006 00 




VIA 


= 


$00 


POINTER TO VIA 


0007 62 






= 


$62 


NORMALLY AT 6200 


0008 AC 




JMPMON 


= 


$4C 


JUMP TO MONITOR 


0009 00 




MONTOR 


= 


$00 


POINTER TO SYSTEM MONITOR 


OOOA 00 






r 


$00 


FOR RETURN FROM PROGRAMMER 


OOOB 00 




INTVEC 


r 


$00 


POINTER TO INTERRUPT VECTOR 


OOOC 00 






r 


$00 




OOOD 00 




PBDD 


= 


$00 


PORT B DATA DIRECTION 


OOOE 00 






= 


$00 




OOOF 00 




PBD 


r 


$00 


PORT B DATA 


0010 CO 






= 


$00 




0011 A9 


00 


BEGIN 


LDAIM 


$00 


CLEAR ALL STATUS FLAGS 


0013 A8 






PHA 






0014 28 






PLP 






0015 A2 


EO 




LDXIM 


STABLE 


ASSUME SYM 


0017 AD 


FD FF 




LDA 


$FFFD 


TEST HIGH BYTE OF INTERRUPT 


C01A C9 


8B 




CMPIM 


$8B 


= 8B FOR SYM-1 


001C FO 


OA 




BEO 


SYM 




001E A 2 


DO 




LDXIM 


ATABLE 


ASSUME AIM 65 


0020 C9 


EO 




CMPIM 


$E0 


= EC FOR AIM 65 


0022 FO 


07 




BEQ 


MOVE 


IT IS THE AIM 


0024 A2 


D8 


KIM 


LDXIM 


KTABLE 


ASSUME KIM 


0026 DO 


03 




BNE 


MOVE 




0028 20 


86 8B 


SYM 


JSR 


ACCESS 


SYM REQUIRES ACCESS 


002B 86 


30 


MOVE 


STXZ 


TABLE 


+01 SETUP POINTER 


C02D A 2 


07 




LDXIM 


$07 


MOVE 8 BYTES 


002F B5 


00 


TABLE 


LDAX 


$00 


REPLACED BY TABLE 


0031 95 


09 




STAX 


MONTOR 


MOVE TO MONTOR TABLE 


0033 CA 






DEX 






0034 10 


F9 




BPL 


TABLE 


MOVE UNTIL X = FF 



VECTOR 
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0036 A9 00 ENTER LDAIM 

0038 48 PHA 

0039 28 PLP 
003A A0 00 LDYIM 
003C A9 C5 LDAIM 
003E 91 OB STAIY 

0040 A9 00 LDAIM 

0042 C8 INY 

0043 91 OB STAIY 
0045 A9 EC LDAIM 
0047 AO OC LDYIM 
0049 91 06 STAIY 
004B AO OE LDYIM 
004D A9 7F LDAIM 
004F 91 06 STAIY 
0051 AO OD LDYIM 
0053 A9 FF LDAIM 
0055 91 06 STAIY 
0057 AO OE LDYIM 
0059 A9 AO LDAIM 
005B 91 06 STAIY 



$00 



$00 

INTRPT 
INTVEC 
INTRPT 

INTVEC 

$EC 

PCR 

VIA 

IER 

$7F 

VIA 

IFR 

$FF 

VIA 

IER 

$A0 

VIA 



CLEAR ALL STATUS FLAGS 



ENTRY IF TABLE PRESET 
GET INTERRUPT POINTER 
SETUP IN TABLE 



/ 

BUMP POINTER 



SETUP VIA VALUES 



DISABLE ALL INTERRUPTS 



CLEAR INTERRUPT PENDING 



ENABLE TIMER TWO 



005D 
005F 
0061 
0063 
0065 
0067 
0069 
006B 
006D 
006F 
0071 
C073 
0075 
0077 



A2 00 
A9 FF 
AO 02 
91 06 
AO 03 
91 06 
61 OD 



NEXT 



A5 
81 



02 
06 



A5 03 
81 OF 
Al 00 
AO 01 
91 06 



LDXIM $00 
LDAIM $FF 
LDYIM DDRB 
STAIY VIA 
LDYIM DDRA 
STAIY VIA 
STAIX PBDD 
LDA 



INIT X REGISTER 
SET DATA DIRECTION 



PRMLOW OUTPUT NEXT ADDRESS 



STAIX VIA 



LDA 
STAIX PBD 
LDAIX SAL 
LDYIM CRA 
STAIY VIA 



PRMHGH 



LOW 8 BITS 

BITS 8, 9, 10 
GET DATA BYTE 

OUTPUT VIA CRA 



0079 A9 50 TIMER LDAIM $50 

007B AO 08 LDYIM TTWOL 

007D 91 06 STAIY VIA 

007F A9 C3 LDAIM $C3 

0081 AO 09 LDYIM TTWOH 

0083 91 06 STAIY VIA 

0085 A9 CE LDAIM $CE 

0087 AO OC LDYIM PCR 

0089 91 06 STAIY VIA 



SETUP 50 MILLISECOND TIMER 

OUTPUT TO TIMER TWO LOW 
HIGH BYTE OF TIMER 

OUTPUT TO TIMER TWO HIGH 
PROGRAM HIGH, PROGRAM MODE 



008B CO OC 
008D FO FC 

008F A9 00 
0091 AO 03 
0093 91 06 
0095 AO 01 
0097 Bl 06 



WAIT 



CPYIM PCR 
BEO WAIT 



VERIFY LDAIM $00 
LDYIM DDRA 
STAIY VIA 
LDYIM ORA 
LDAIY VIA 



TEST FOR INTERRUPT SERVICED 
ELSE, WAIT FOR IT 

VERIFY PROGRAMMING 
SET ORA FOR INPUT 

SETUP POINTER 
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0099 CI 00 
009B F0 03 
009D 20 08 00 

OOAO E6 00 OKAY 
00A2 DO 07 
00A4 E6 01 
00A6 DO 03 
00A8 20 08 00 

OOAB A5 05 TEST 

00 AD C5 01 

OOAF DO 09 

00B1 A5 04 

00B3 C5 00 

00B5 DO 03 

00B7 20 08 00 

OOBA E6 02 MORE 
ODBC DO 9F 
COBE E6 03 
COCO DO 9B 
C0C2 20 C8 00 



CMPIX SAL COMPARE ORIGINAL DATA 

BEQ OKAY GOOD IF MATCH 

DSR JMPMON EXIT ON ERROR 

INC SAL BUMP DATA POINTER 

BNE TEST BRANCH IF NOT ZERO 

INC SAH BUMP HIGH DATA POINTER 

BNE TEST BRANCH IF NOT ZERO 

GSR JMPMON EXIT ON ERROR 

LDA EAH TEST ALL DONE 

CMP SAH BY COMPARING POINTERS 

BNE MORE 

LDA EAL 

CMP SAL 

BNE MORE 

JSR JMPMON DONE. 

INC PRMLOW BUMP PROM POINTERS 

BNE NEXT READY IF NOT ZERO 

INC PRMHGH BUMP HIGH POINTER 

BNE NEXT OKAY IF NOT ZERO 

JSR JMPMON EXIT ON ERROR 



00C5 A9 EC 
00C7 91 06 
C0C9 AO OD 
OOCB Bl 06 
OOCD 91 06 
OOCF 40 

OODO 6D 
00D1 El 
00D2 00 
00D3 A4 
OODA 00 
00D5 AO 
00D6 02 
00D7 AO 

00D8 05 
0CD9 1C 
OODA FE 
OODB 17 
OODC 03 
OODD 17 
OODE 02 
OODF 17 

OOEO 35 
00E1 80 
00E2 7E 
00E3 A 6 
00E4 00 
C0E5 AO 
CCE6 02 
CCE7 AC 



INTRPT LDAIM $EC 
STAIY VIA 
LDYIM IFR 
LDAIY VIA 
STAIY VIA 
RTI 



ATABLE = 



KTABLE r 



STABLE = 



$6D 
$E1 
$00 
$A4 
$00 
$A0 
$02 
$A0 

$05 
$1C 
$FE 
$17 
$03 
$17 
$02 
$17 

$35 
$80 
$7E 
$A6 
$00 
$A0 
$02 
SAO 



RESET PROGRAM LOW, VERIFY MODE 

SETUP TO CLEAR INTERRUPT 
READ AND WRITE TO CLEAR 
INTERRUPT VIA SNEAKY TRICK 
RETURN FROM INTERRUPT 

AIM 65 MONITOR ENTRY 
TO DISPLAY PC COUNTER 
IRO INTERRUPT VECTOR 

PBDD 

PBD 



KIM MONITOR ENTRY 
IRO INTERRUPT POINTER 
PBDD 
PBD 

SYM ENTRY POINT 

IRQ INTERRUPT POINTER 

PBDD 

PBD 
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ASK THE DOCTOR - PART III 
BITS AND BYTES 

Robert M. Tripp, Ph.D. 
TheCOMPUTERIST, Inc. 

P.O. Box 3 
So. Chelmsford, MA 01824 



The Doctor was busy this month and did not get a chance to write 
up the EPROM Programmer hardware as promised in the last 
issue. Look for it next time. A couple of people did submit some 
good info which is printed below. The Doctor encourages such 
input. Too much is happening with these new computers for 
anyone person to "know it all", so if you find out something 
interestng, please drop us a note and let us get the word out. 

Corrected AIM SYNC Program 

The early AIM User Manuals had a number of mistakes, as is to 
be expected the first batch. One of the more serious errors was 
in the listing for the SYN Write and SYN Read programs on page 
9-11. The errors have been corrected in later versions of the 
manual, but for those of you who need the programs, here they 
are - corrected. 



'ESC to 'F2'. Of course, a change in the op-code length will 
bring up some unexpected results, but very soon you'll catch a 
proper op-code again! 



SYN Write Program: 



0300 20 ID F2 
0303 20 4A F2 
0306 4C 03 03 



JSR F21D 
JSR F24A 
JMP 0303 



SYN Read Program: 



0310 


A2 


00 




LDX 


#00 


0312 


A9 


CE 




LDA 


#CE 


0314 


20 


7B 


EF 


JSR 


EF7B 


0317 


20 


EA 


ED 


JSR 


EDEA 


031A 


A2 


00 




LDX 


#00 


031C 


A9 


D9 




LDA 


#D9 


031E 


20 


7B 


EF 


JSR 


EF7B 


0321 


20 


29 


EE 


JSR 


EE29 


0324 


C9 


16 




CMP 


#16 


0326 


F0 


F9 




BEQ 


0321 


0328 


DO 


E6 




BNE 


0310 



03CB 
03CE 
03CF 
03D1 
03D4 
03D6 
03D9 
03DC 
03DF 
03E2 
03E5 
03E7 
03E9 
03EC 
03EE 
03F0 
03F3 
03F4 
03F6 
03F9 
03FB 
03FE 



AD 25 A4 
18 

E5 EA 
8D 25 A4 
B0 03 
CE 26 A4 
20 24 EA 
20 6C F4 
20 07 E9 
20 3C E9 
C9 49 
DO 03 
4C 9E FB 
C9 20 
DO F2 
AD 25 A4 
38 

65 EA 
8D 25 A4 
90 DE 
EE 26 A4 
90 D9 



LDA A425 
CLC 

SBC EA 
STA A425 
BCS 03D9 
DEC A426 
JSR EA24 
JSR F46C 
JSR E907 
JSR E93C 
CMP #49 
BNE 03EC 
JMP FB9E 
CMP #20 
BNE 03E2 
LDA A425 
SEC 

ADC EA 
STA A425 
BCC 03D9 
INC A426 
BCC 03D9 



■ Submitted by 

Cebhard Brinkmann 

KoblenzerStr. 1. 

D-5401 Kaitengers 

West Germany 



Patch for the AIM-DISASSEMBLER 



It soon becomes obvious, that the disassembler is extremely 
paper consuming, because no single-stepping is provided. The 
following program will save you money and time! 

Set F1 (010C) to 'JMP 03D9' and F2 (010F) to 'IMP 03CB'. After 
loading the desired program address (*), hitting F1 will dissable 
just this line on the display. To advance, press the space-bar. 
If you want to modify, use T and the program jumps to the 
Instruction Mnemonic Entry. The current address will not be 
changed. 'ESC brings you back to the AIM — Monitor. With 
'F1' # the next address will be disassembled. 'F2', however, will 
substract the last used op-code length from the current address 
and then disassemble the last entry! It is even possible to 
disassemble further "backwards", just keep switching from 



SYM Tape Evaluation 

As a result of our telephone conversation on Monday, I decided 
to look for any possible hardware problems in the SYM Cassette 
Interface. Some results are shown below. Whether these are 
related to your cassette problems is unknown. In checking my 
Sony TC-62, I found an unexpected very slow acting AVC 
(increases gain very slowly, decreases rapidly). This could cause 
problems in a level sensitive system as the gain slowly increases 
during the recording process to a quite large degree. 
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+ 3.0V 
+ 2.5V 
+ 2.0V 



+ 3.0V 
+ 2.5V 
+ 2.0V 

+ 3.0V 
+ 2.5V 
+ 2.0V 




WAVEFORM A 



WAVEFORM B 



WAVEFORM C 



1 i_n_r 



"0" I "1" 1 "V 

740 usee 
wide 



All waveforms taken at PIN 3 of the LM311 (U26) with a sync 
tape generation program running (hi-speed). Audio OUt (HI) is 
connected directly to Audio In (A-P to A-L). 

WAVEFORM A is the normal condition as received (VIM 

80650912 E/C0003) 
WAVEFORM Bis with CI 4 (0047uF) removed 
WAVEFORM C is with C1 4 removed and C16{.01 uF) paralled with 
1uF 

CONCLUSION: C16 is much too small and could easily cause 
the system to become marginal in the presence of noise and 
normal level variations. C14 has no apparent real value and 
seems to unnecessarily increase transition time uncertainty. 
The small value of C16 and the presence of C14 together 
simulate the waveform degradation of a very limited band- 
width recorder. Their effect augment rather than compensate for 
the deficiencies of a recorder. Suprisingly, it appears that it 
would be a recorder with poor low, rather than high, frequency 
response which would be most likely to have problems with C16 
is maintained at its original .01 microfarad value. 

Submitted by 

Don Lloyd 

101 Western Ave., Apt. 76 

Cambridge, Ma. 02139 



Comments on Synertek BASIC (8K) V1.1 
1) 2 ROM's, U21, U22, C000-DFFF, (J) (0) (CR to start BASIC 

2) Commands -CLEAR, LIST, NULL, RUNN, NEW CONT, LOAD' 

"A", SAVE "A" 

3) Statements- DATA, DEF, DIM, END FOR, GOTO, COSUM, 

IF.. .GOTO, IF. THEN, INPUT, LET, NEXT, ON... 
GOSUM, POKE, PEEK, PRINT, READ, REM, 
RESTORE, RETURN, STOP, WAIT. 

4) Functions - ABS(X), INT(X), RND(X), SCN(X), SQR(X), TAB(I), 

USR(I), USR(I,J,...Z), EXP(X), FRE(X), LOC(X), 
POS(I), SPC(I) 

SIN(X), COS(X), TAN(X), ATN(X) all must be 
loaded separately - App Note 53-SSC not quite 

available. 

5) Strings - DIM A$, LET A$, INPUT X$, READ X$, PRINT X$ 

6) String Functions - ASC(X$), CHR$(I), FRE(X$), LEFT$(X$,I) 

LEN(X$), MID$(X$,I), MID$(X$,I,J), RIGHTS 
(X$,l), STR$(X),VAL(X$) 

7) Operators =,-, + , exponentiation, *, = , (not equal), , , 

(LTE), (GTE), NOT, AND, OR 

8) Uses Memory from 0200 HEX up until ROM or no memory, 

unless restricted at start up. 

9) Weaknesses -Only editing is delete line, delete last character 

(RUB-OUT), no ROM TRIG, no program merging 
capability. 
10) Strengths - Good array features (but no MAT functions), 9 
digit accuracy floating points 
4 byte floating point numbers 
7 bits + 1 bit sign exponent 

1 bit sign +24 bit binary value (WJbit = 1 always) 
&"000F" = 15 decimal 
hex string conversion to decimal 
USR (l,J,...Z) Machine language subroutine multiple 
parameters on stack result (A,Y) 
Speed is comparable to OSI Kilobaud Oct '77 ratings (1MHz) 
Overall subjective by infrequent BASIC user: 7.5/10 seems 
appropriate to overall product. 

Submitted by 

Don Lloyd 

101 Western Ave., Apt. 76 

Cambridge, Ma. 02139 



NOTE: Since this article was originally published, Synertek 
Systems has released the new SYSMON V1.1. It is available 
through your SYM dealer for $15.00 and may be used to update 
your old version system. New SYM-1 systems will come with 
the new monitor in place. 
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ASK THE DOCTOR - PART IV 
GOOD NEWS/BAD NEWS 

Robert M.Tripp, Ph.D. 
TheCOMPUTERIST, Inc. 

P.O. Box 3 
So. Chelmsford, MA 01824 



In last month's issue I announced that Synertek Systems has infor- 
med me of an improvement to the SYM monitor which should solve 
the audio cassette sensitivity problem that I had mentioned in 
several columns. I have since received a copy of the new SYM-1 
Supermon Version 1.1 on a pair of EPROMs (which I had supplied to 
them) and have had some chance to evaluate the new version. The 
documentation I received was in the form of a two page letter. Not 
having the monitor listing limited by ability to fully evaluate the 
changes. 

The Good News 
According to the letter only two minor hardware changes are 
required in the cassette circuit. This are similar to some reported in- 
dependtly by other users and reported in an earlier column. "Change 
C16 to .22 microfarad" and "change R97to1Kohm". 

This list of improvements that accompanied the V1 .1 monitor, along 
with my comments appears below. (The Synertek notes are in bold 
face. My comments are normal type.) 

1 . The Improved High Speed Cassette read/write is significantly bet- 
ter than before. I was able to write and read quite constantly and 
was able to produce a tape on one type of recorder and read it on 
another. The volume/tone range was much wider. Whereas before 
you had to be right on for any chance of success, now you can have 
a reasonable variation in volume and tone and still get a good read. 
This is particularly important when you are using different recorders 
with different characteristics. The two recorders I tested with were a 
Superscope C-190 and a Pioneer Centrex. These fairly high quality 
recorders have not worked reliably with the old VI .0 monitor. A 
suggestion I had made to Synertek back in June 1978 was to make 
the leader time variable. While the 8 seconds they had built-in in 
V1.0 is acceptable when you are only occasionally storing a 
program, it was much to long if you intended to use the tape service 
to save small chunks of data - mailing list information for example. 
The above note says that the leader time is now maintained in ram 
and can be changed by the user if necessary. Since I did not have the 
listing or additional information, I was not able to test this out. But, 
assuming it does work, this can be a very significant improvement, 
some programs I have written require a lot of extra code simply to 
get around the "fixed" leader problem. They should be much sim- 
pler now, since I should be able to set the leader time in ram and 
then use the tape cassette routines directly. 

2. KIM read. Read routine improved. This has been one of the 
biggest problems for the SYM-1 since it release. The V1.0 monitor 
had a simple, but powerful, bug. It made an invalid test for the KIM 
format "end-of-data" character, and treated the legal 32 46 ASCII 
pair as an ASCII "/", thereby terminating prematurely whenever it 
encountered a "2F" in the data. This made the KIM format mode of 
the SYM-1 essentially useless. This has been fixed in the new version. 
This means that it is now possible to distribute software, data bases, 
source files, etc. between the KIM-1, SYM-1 and AIM 65 using the 
common KIM format; 

3. Beeper frequency adjusted for maximum output. I'll take their 
word for this. It does sound a little louder, but then I had never had 
any trouble with the beeper in V1 .0 



4. During the VERIFY command a BREAK key will stop printout 
without printing an error message. I didn't test this minor im- 
provement, but it is nice to keep error messages for real errors. 

5. BREAK key is looked for on current loop interface. If you are 

using a teletype device, it is handy to have the BREAK key work, so 
this change is definitely good. 

6. Log-on changed to SY1 .1 . Yes. 

7. After paper tape load the error message count is displayed. I do 

not have any paper tape facility to test this, but it is a minor im- 
provement. 

8. Ability to return to a higher lever program (left arrow).'l do not 

quite understand what this is supposed to mean, but I am sure when 
additional documentation is available it will make sense. 

9. Cassette file I.D. displayed on left digit seven segments. This is 
both cute and useful. They have simply taken the ID value and put it 
out on the leftmost digit. It does take a bit of deciphering though. 
The figure below shows the value of each segment on the display. 
These must be separately read and then added together to get the 
file ID. It is useful when you are searching the tape for a particular 
tape ID. 

10. Unwrite-protect routine added to cassette logic. Again, I could 
not test this due to zero documentation. 

11. Register name improvement on display during R command. 

Hooray! Now the display shows the register name, not a "hard-to- 
remember-and-interpret" arbitrary number to identify which register 
you are examining. P for program counter; S for stack; F for flags; A 
for A register, to represent an X for the X register; and Y for the Y 
register. A simple but very nice improvement. 

12. Debug-on will not cause ram to be write protected. I did not test 
this, but it sounds reasonable. 



That's the good news. 



The Bad News 



The bad news isn't all that bad, but should be considered. First, the 
changes to the Supermon do move some code around and change 
some "internal" entry points. Although the Synertek programmer I 
talked to said that this was not going to be very important since the 
main entry points were not touched, I found the first program I tried 
to run, the SYNC generator from the Reference Manual, would not 
work since two of the routines it requires have moved. How great a 
problem will this be? It is difficult to guess. I haven't seen the listings 
and do not know what routines were changed and also do not know 
how often other programmers have used them directly. It will be a 
problem for anyone who is trying to make program for distribution 
since there may be a requirement for two versions - one for V1 .0 and 
another for VI .1 - and this adds to the expense and can cause 
distribution problems. Hopefully, the number of routines affected is 
small and isn't a big problem - but at present, "Who knows?". 



16 



Second, the VI .1 does use up some (most?, all?) of the Scratch Pad 
RAM in the System RAM. While this is not necessarily a big problem 
for future programs, it may cause problems for existing programs 
which use this previously available resource. Care will have to be 
taken when transferring programs from V1.0 to VI .1 to take this 
change in scratch pad availability into account. 

Third, Synertek does not seem to have a policy yet for how the new 
VI .1 will be distributed. They are still waiting for feedback from 
myself and a couple of other users before committing to ROM, so it 
will be some time before any of the VI .1 are available at all. Then 
there is the question of systems already in the field or on dealer's 
shelves. Will there be a reasonable "exchange" policy, say Syner- 
tek's actual ROM production cost of $10-$15.00, or is some outlan- 
dish price going to be charged. I strongly feel that Synertek has the 

responsibility to offer the new VI .1 at the lowest price possible. Some 
of the changes they have made are not "cosmetic" or simple "im- 
provements". They are basic "corrections" to their original 
"flawed" V1.0. 



SYM-1 Codes 

Ever wonder what the various codes were that the SYM used: key- 
code, ASCII code, and display code? You can look them up in the 
SYM manual in various places, but, why not let the SYM itself 
generate a display of these codes. The following program is an aid in 
establishing the relations between the three different codes. Start 
the program at 0000. The display goes blank, and when a key is 
depressed, the display will show key code, ASCII and display-scan 
code for a short time, and go blank again with a "beep". 

Submitted by 
Jan Skov 

Majvaenget 7 
DK-6000 Kolding 
The Netherlands 



SYM-1 CODE DISPLAY 
JAN SKOV 
FEBRUARY 1979 



0000 



ORG $0000 



SYM SUBROUTINES 



0000 
0000 
0000 
0000 
0000 
0000 
0000 



ACCESS * 
SPACE * 
INCHR * 
0UTCHR * 
0UTBYT * 
SCAND * 
BEEP * 



$8B86 SYSTEM RAM ACCESS 

$8342 OUTPUT SPACE TO DISPLAY 

$8A1B INPUT CHARACTER 

$8A47 OUTPUT CHARACTER 

$82FA OUTPUT BYTE 

$8906 SCAN DISPLAY 
$8972 



0000 
0003 
0005 
0008 
0009 
000B 
000E 
0010 
0012 
0015 
0017 
001A 
001D 
0020 
0022 
0024 
0026 
0029 
002B 
002D 
002F 
0031 
0034 



20 86 8B 
A2 06 
20 42 83 
CA 

DO FA 
20 IB 8A 

85 EF 
A9 2D 

20 47 8A 
A5 EF 
20 FA 82 
AD 42 A6 
20 FA 82 
A2 0B 

86 EE 
86 ED 

20 06 89 
C6 ED 
DO F9 
C6 EE 
DO F5 
20 72 89 
4C 00 00 



START JSR 

LDXIM 

LOOP JSR 
DEX 
BNE 
3SR 
STAZ 
LDAIM 
JSR 
LDAZ 
JSR 
LDA 
JSR 
LDXIM 
STXZ 
STXZ 

L00PA JSR 
DECZ 
BNE 
DECZ 
BNE 
3SR 
JMP 



ACCESS 

$06 

SPACE 

LOOP 

INCHR 

$00EF 

$2D 

CUTCHR 

$00EF 

0UTBYT 

$A642 

0UTBYT 

$0B 

$00EE 

$00ED 

SCAND 

$00ED 

L00PA 

$00EE 

L00PA 

BEEP 

START 



DISPLAY BUFFER 



DISPLAY AND 
TIMER LOOP 
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A SIMPLE 24 HOUR CLOCK FOR THE AIM 65 

Marvin L. De Jong 

Department of Math-Physics 

The School of the Ozarks 

Point Lookout, MO 65726 



The program whose listings are given in the AIM 65 disassembly 
format is a 24 hour clock that displays the time in hours, minutes, 
and seconds on the six right-most digits of the 20 character AIM 65 
display. AIM 65 owners can load the program directly from the 
listings using the mini-assembler in the AIM 65 monitor. The 
program listings were taken directly from the thermal printer on the 
AIM 65. 



To start the timer, load the hours, minutes, and seconds locations 
with the time at which you intend to start, wait for this time, then 
start the program. Of course, there are much more meaningful ap- 
plications to this program than simply displaying the time. One 
could record the time at which transistions on the I/O pins occur for 
example. Have fun. 



The principal reason for writing the program was to experiment with 
the interval timers on the 6522 VIA. One advantage of the so-called 
T1 timer on the 6522 is that it can produce equally spaced interrup- 
ts, independent of the time necessary to complete an instruction 
and the time necessary to process the interrupt. SYM-1 owners may 
also use the program with only minor modifications, since the ad- 
dresses of the various registers and counters in the 6522 chips are the 
same for these two computers. SYM-1 owners will have to change 
the display routines, however. 

A brief description of the program follows. The first five instructions 
set up the interrupt vectors for the AIM 65. The next eight instruc- 
tions set up the 6522 VIA for the T1 timer in the free running mode, 
enable the T1 interrupt, and set the time interval to $C34E = 
49,99810 clock cycles. This number, plus the two clock cycles 
necessary to restart the timer, represent 50,000 clock cycles or 0.05 
seconds. Thus, the time between interrupts is exactly 50,000 clock 
cycles. Twenty interrupts give an interval of 10 6 clock cycles, or one 
second with a one MHz clock frequency. Location $0000 serves as 
register for the count-to-twenty interrupts process. It starts at $EC 
and advances to $00 before the seconds location is incremented. 

The interrupt routine from $0300 to $033C is very similar to the 
clock program by Charles Parsons in THE FIRST BOOK OF KIM. The 
only difference is that the timers do not need to be restarted in the 
interrupt routine. Only the interrupt flag needs to be cleared before 
returning from interrupt. This is accomplished by the LDA A004 in- 
struction at $0337. 

The program from $0226 to $0254 is the display routine from the 
AIM 65. First the seconds, minutes, and hours located in $0001, 
$0002, and $0003 respectively, are relocated, then converted to 
ASCII, and finally output to the display by the JSR EF7B. Many kinds 
of hex to ASCII routines are possible here. I simply rotated nibble af- 
ter nibble into the low order nibble of location $0004 and added $30 
to convert to ASCII. 

AIM 65 owners may be interested in the output routine. Of all the 
subroutines mentioned in the "User's Guide" the one I used is not 
mentioned directly. Basically it takes an ASCII character in the ac- 
cumulator and outputs it to the display digit between $00 and $13 
(20 character display) identified by the contents of the X register. It 
also requires a one in bit seven of the accumulator. Otherwise you 
get the cursor. So I did a ORA $80 with the ASCII character in the 
accumulator before jumping to the subroutine at $EF7B. 

I checked the clock up against WWV and found it was off by about 
0.024%, which is substantial if you wish to keep time over the long 
term. I decreased the $4E byte location $0216 to $42 and now it 
appears to be off by only 0.00063%. Of course, these timing errors, 
though small, tend to accumulate giving an error of about 0.5 
seconds in 24 hours. 



o ■■■ c 
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24 HOUR AIM CLOCK 









BY MARVIN L. 


DE 30NG 








FEBRUARY 1979 


0200 








ORG 


$0200 


0200 78 






START 


SEI 




0201 A9 


00 






LDAIM 


$00 ! 


0203 8D 


04 


A4 




STA 


$A404 1 


0206 A9 


03 






LDAIM 


$03 1 


0208 8D 


05 


A4 




STA 


$A405 


020B A9 


CO 






LDAIM 


$C0 : 


020D 8D 


OE 


AO 




STA 


$A00E 


0210 A 9 


40 






LDAIM 


$40 


C212 8D 


OB 


AO 




STA 


$AOOB 


0215 A9 


4E 






LDAIM 


$4E ! 


0217 8D 


06 


AO 




STA 


$A006 


021A A9 


C3 






LDAIM 


$C3 : 


021C 8D 


05 


AO 




STA 


$A005 


021F A9 


EC 






LDAIM 


$EC 


0221 85 


00 






STA 


$0000 


0223 58 








CLI 


1 


0224 00 








BRK 


1 


0225 EA 








NOP 




0226 A5 


01 




DISPLY 


LDA 


$0001 1 


0228 85 


04 






STA 


$0004 1 


022A A5 


02 






LDA 


$0002 


022C 85 


05 






STA 


$0005 


022E A5 


03 






LDA 


$0003 


0230 85 


06 






STA 


$0006 


0232 A2 


13 






LDXIM 


$13 1 


02 3 A 8A 






LOOP 


TXA 




0235 48 








PHA 


i 


0236 AO 


04 






LDYIM 


$04 ! 


0238 A5 


04 






LDA 


$0004 1 


C23A 29 


OF 






ANDIM 


$0F 1 


023C 18 








CLC 


1 


023D 69 


30 






ADCIM 


$30 ! 


02 3F 09 


80 






ORAIM 


$80 1 


0241 20 


7B 


EF 




JSR 


$EF7B , 


0244 46 


06 




SHIFT 


LSR 


$0006 ! 


0246 66 


05 






ROR 


$0005 1 


0248 66 


04 






ROR 


$0004 


C24A 88 








DEY 


1 


024B DO 


F7 






BNE 


SHIFT 1 


024D 68 








PLA 


1 


024E AA 








TAX 




02 4F CA 








DEX 


1 


0250 EO 


OE 






CPXIM 


$0E 


0252 BO 


EO 






BCS 


LOOP 1 


0254 4C 


26 


02 




3MP 


DISPLY 1 



SET INTERRUPT DISABLE 
SETUP INTERRUPT VECTORS 
FOR 6522 
POINT TO ADDRESS 0300 

SETUP VIA 6522 FOR TIMER 1 
IN FREE RUNNING MODE 



SET LOW BYTE OF TIMER 

SET HIGH BYTE OF TIMER 

SET 20 INTERRUPT COUNTER 
IN LOCATION 0000 
ENABLE INTERRUPTS 
RETURN TO MONITOR 



MOVE DIGITS TO BE DISPLAYED 
FOR SAFE KEEPING 



LOAD DISPLAY POSITION POINTER 

PUT X VALUE INTO A 

SAVE ON STACK 

SET TO SHIFT FOUR POSITIONS 

GET LEAST SIGN DIGIT REMAINING 

MASK TO SINGLE CHARACTER 

CLEAR 

CONVERT 0-9 TO ASCII 0-9 

BIT 80 MUST BE ON FOR AIM 

AIM OUTPUT ROUTINE 

SHIFT TO GET HIGH HALF OF 

DIGIT INTO POSITION 

DECREMENT FOUR SHIFT COUNTER 
KEEP ON SHIFTING 
RESTORE X FROM STACK 

DECREMENT POSITION POINTER 
TEST 6 DIGITS OUTPUT 
MORE TO DO 
DONE. NOW START OVER AGAIN. 
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24 HOUR CLOCK INTERRUPT SERVICE 



0300 




ORG 


$0300 


0300 48 




INTRPT Ph'A 




0301 E6 


00 


INC 


$0000 


0303 DO 


32 


BNE 


IDONE 


03C5 38 




SEC 




0306 ie 




CLC 




C307 A 5 


01 


LDA 


$0001 


0309 69 


01 


ADCIM 


$01 


030B 85 


01 


STA 


$0001 


030D C9 


60 


CMPIM 


$60 


03 OE 90 


22 


BCC 


NOTMIN 


0311 A9 


00 


LCAIM 


$00 


0313 85 


01 


STA 


$0001 


0315 18 




CLC 




0316 A5 


02 


LDA 


$0002 


0318 69 


01 


ADCIM 


$01 


031A 85 


02 


STA 


$0002 


031C 09 


60 


CMPIM 


$60 


031E 90 


13 


BCC 


NOTMIN 


0320 A9 


00 


LDAIM 


$00 


0322 65 


02 


STA 


$0002 


0324 18 




CLC 




0325 A5 


03 


LDA 


$0003 


0327 69 


CI 


ADCIM 


$01 


0329 85 


03 


STA 


$0003 


032B C9 


24 


CMPIM 


$24 


C32D 90 


04 


BCC 


NOTMIN 


032E A9 


00 


LDAIM 


$00 


0331 85 


03 


STA 


$0003 


0333 A9 


EC 


NOTMIN LDAIM 


$EC 


0335 85 


00 


STA 


$0000 


0337 AD 


04 AO 


IDCNE LDA 


$A0C4 


033A D8 




CLD 




033B 68 




PLA 




033C 40 




RTI 





COME HERE ON TIMER INTERRUPT 

SAVE A REG AND BUMP COUNTER IN 0000 

DONE WITH INTERRUPT 

SET DECIMAL MODE ECR CALCULATIONS 

BUMP ONE SECOND COUNTER 

BY ADDING 1 WITH CARRY 

SAVE 

TEST SIXTY SECONDS 

NOT A MINUTE 

A MINUTE 

ZERO SECOND COUNTER 

THEN BUMP MINUTES 

GET MINUTES COUNTER 

AND BUMP 

SAVE 

TEST HOUR 

NOT AN HOUR YET. 

AN HOUR, SO ZERO MINUTES 

THEN EIX HOURS 



TEST 24 HOURS 

NOT 24 HOURS 

AT 24 HOURS RESET TO ZERO 



RESET 20 INTERRUPT COUNTER 



RESTART TIMER BY READING 
CLEAR DECIMAL MODE 
RESTORE A REGISTER 
RETURN ERCM INTERRUPT 
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AN AIM 65 USER'S NOTES 

Joe Burnett 

16492 E. Tennessee Avenue 

Aurora, CO 80012 



The AIM 65 Microcomputer, made by Rockwell, is one of the 
newest, most versatile home computers available today. At the 
time of this writing (January 1979), it sells for $375. For this you 
get the complete computer, with a 20 character alphanumeric 
display, full size alphanumeric keyboard, a printer which uses 
inexpensive calculator type paper, 1K of RAM and 8K ROM- 
resident programming. Options include the ability to add 3K more 
memory, a 4K assembler, and an 8K Basic interpreter, all on-board, 
simply by purchasing them and plugging them in. An 
"application" connector and an "expansion" connector accept 
standard 44 pin edge connectors, and allow the control and I/O of 
two cassette units and a teletype, as well as off-board additional 
memory. On-board programming (ROM-resident) gives you the 
ability to display memory in either hex or mnemonic, alter 
memory, edit programming, turn the printer on and off, display 
registers, and enter any of the many resident subroutines. With 
cassette units connected, you can read or write to either one, and 
set up the AIM 65 to handle KIM-1 format (X1 or X3) or the AIM 65 
format software. The AIM 65 will file and search cassette tapes, 
and the front panel alphanumeric display lets you know the status 
of the operation in progress as well as the block of data being read 
or written. Three keys on the keyboard (F1, F2, and F3) enable user 
defined functions through programmed jump instructions, and are 
a nice feature. Physically, the computer circuit board itself is 
ten inches deep by twelve inches wide, and the keyboard (which 
attaches through a supplied ribbon cable) is four inches deep by 
twelve inches wide Included with the computer is a roll of paper 
for the printer, "feet" for the computer circuit board and the 
keyboard circuit, a User's Guide manual, an R6500 Programming 
manual, a System Hardware manual, a Programming Reference 
Card, an AIM 65 Summary Card, and a large schematic diagram, as 
well as the warranty card (don't forget to mail this in). 

Software Compatibility 

As with any new product, there are some problems. One is with 
the KIM-1 software The KIM-1 is a very basic computer, and the 
AIM 65 is sophisticated by comparison. An example of the 
problem with the software is the KIM-1 "PLEASE" program. 
"PLEASE" loads data into memory locations which either are 
dedicated for use by the AIM 65, or are not present in the AIM 65. 
Consequently, although the AIM 65 can be initialized to accept 
KIM-1 programming, check the listing before you try to do it. It'll 
save you a lot of time and frustration. The AIM 65 User's Guide 
Manual includes a detailed memory map which you can use to 
determine (from a program listing) whether or not the program 
you're trying to load will in fact load as advertised. 



Some Cassette Control Problems 

A second problem is with the cassette unit control circuitry. There 
are actually two circuits in the AIM 65 for each cassette unit, and 
although Rockwell made an attempt to cover all eventualities, 
they didn't succeed. The first circuit makes use of an integrated 
circuit relay driver, which puts a low (ground) at the cassette 



control output pin of the "application" connector when the 
computer toggles the cassette unit "on". The second circuit is a 
transistor switch which is biased on when the computer toggles the 
cassette unit "on". The problem arises in that not all cassette units 
use a positive supply voltage with the negative line common 
(connected to the cassette unit frame). General Electric, for 
example, typically connects the positive side of the battery (or AC 
adapter) to the cassette unit frame, and uses negative voltage for 
the motor and electronic circuitry. At first glance, this doesn't 
look like a problem; after all, you only need to supply a closure to 
the remote switch line, and the cassette unit will run, right? Well, 
not quite. 'If you connect your CE cassette unit to the relay driver 
output pin, and the computer control has the cassette unit toggled 
"off", the cassette unit won't shut off. This is because you've put a 
negative voltage (from the cassette unit) at a point which has a 
nearly equal positive voltage (from the AIM 65), and the result is 
close enough to zero volts that the cassette unit motor runs even 
though the computer indicated that an "off condition exists. 
Okay, so what about the transistor switch? Figure 9-4 of the User's 
Guide manual shows how to connect the wires. And the cassette 
unit won't run. At this point you're most likely very annoyed and 
confused (I know I was). The reason that the computer won't 
control the cassette unit is that (1) figure 9-4 of the User's Guide 
Manual is in error; the positive voltage from the cassette unit 
battery should go to pin "F", and the motor line should go to pin 
"E", of the "application" connector; and (2) the transistor does not 
have the voltages necessary to make it work, even after the wires 
are properly connected. If you look at the schematic diagram, 
you'll see that the transistor switch in the computer gets its 
operating voltage from the circuit it's controlling. To make it work, 
the transistor must have the proper bias (voltage between base and 
omitter), and to get this a common ground must exist between the 
computer power supply and the cassette unit power supply. It 
would seem that all that would be necessary would be to connect 
the emitter of the transistor (pin "F" of the "application" 
connector) to ground. Now the cassette unit will run and stop in 
response to computer control— until you plug in the ear and/or 
mic lines When you do this, and the transistor turns on, you 
create a short circuit across the battery (or AC adapter) of the 
cassette unit. The reason is that when you wired up the ear/n,ic 
lines, you connected one side to ground on the 44 pin edge 
connector, and now the current finds a path through the cassette 
electronic circuitry, and everything stops. Under normal 
conditions, the remote switch on the cassette unit microphone is 
isolated from everything, so no problem exists. When you make 
the return line to the remote switch and the ear/mic line return 
common, a short circuit occurs. So what do you do now? 
Simulate an isolated switch, similar to what the microphone has. 
A relay is the only way, if you're going to control the cassette unit 
with the computer. Since my AIM 65 is still in the warranty period, 
I have not modified it as I'd like to. However, once the warranty 
period expires, I'm going to install two relays on the circuit board 
and use the transistor switches to control them. Then it won't 
matter what kind of motor control the cassette unit uses; I'll have 
the isolated swi; h action required to control any cassette unit, 
regardless of the polarity of the voltages involved. 
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A Sample Program 



At the time of this writing, neither the Assembler nor the BASIC 
interpreter is available from my distributor. This means that any 
programming I do has to be done using mnemonic codes. 
Although the documentation in the User's Guide is very good, the 
sample programs shown appear to have been produced with the 
use of an Assembler. An example is on pages 7-82 and 7-83. This 
program is intended to display and print an assembled message, 
but the information on how to prepare the message for storage in 
memory is absent. So, if you input this program you'll be " all 
dressed up with nowhere to go". The program shown below will 
allow you to input a message, and then retrieve it, all with the 
"bare bones" (1K RAM) AIM 65. How you use this is up to you. It 
could be just "for show", or you can modify it as desired and 



include it in more complex routines involving user interaction with 
the computer. This program does feature single key access (user 
function key F1, F2, or F3). Key F1 allows you to write to memory; 
key F2 retrieves the entire message; and key F3 retrieves the 
message a line at a time, with the space bar being used to advance 
the display to the next line of the message. The maximum length 
of the message is 13V; lines. An asterisk is typed at the end of the 
message when it is written to memory, which takes the computer 
out of the loop in all of the modes. 

I hope the information in this article helps you avoid some of the 
problems and frustrations I've experienced. Enjoy your AIM 65. 
I'm having a lot of fun with mine, and I'm still learning what it's 
capabilities are. 



WRITE TO MEMORY PROGRAM 
JOE BURNETT 

WITH MODS BY MIKE ROWE 
APRIL 1979 



0000 


ORG $0000 




AIM SUBROUTINES 


0000 


CRCK * $EA24 


0000 


CRLF * $E9F0 


0000 


INALL * $E993 


0000 


0UTALL * $E9BC 



$EA24 DUMP PRINT BUFFER 

CARRIAGE RETURN/LINE FEED 
INPUT FROM ANY DEVICE 
OUTPUT TO ANY DEVICE 



ASCII CHARACTER 



0000 
0000 



SPACE * 
ASTER * 



$0020 SPACE CHARACTER 
$002A ASTERISK CHARACTER 



WRITE MESSAGE TO MEMORY 



0000 20 


F0 


E9 


WRITE 


GSR 


CRLF 


0003 A0 


00 






LDYIM $00 


0005 A2 


13 




LINE 


LDXIM 


$13 


0007 20 


93 


E9 


INPUT 


JSR 


INALL 


000A 99 


00 


02 




STAY 


$0200 


000D C9 


2A 






CMPIM 


ASTER 


000F F0 


47 






BED 


EXIT 


0011 C8 








INY 




0012 CA 








DEX 




0013 DO 


F2 






BNE 


INPUT 


0015 20 


24 


EA 




JSR 


CRCK 


0018 4C 


05 


00 




JMP 


LINE 



CLEAR DISPLAY 
INIT MEMORY POINTER 
INIT CHARACTER COUNTER 
GET AN INPUT CHARACTER 
STORE IN BUFFER 
TEST TERMINATOR 
IF YES, THEN DONE 
BUMP POINTER 
DECR CHARACTER COUNTER 
IF NOT ZERO, GET MORE 
LINE FULL, SO PRINT IT 
GET NEXT LINE 



READ ENTIRE MESSAGE 



001B 20 


F0 E9 


REM 


JSR 


CRLF 


001E A0 


00 




LDYIM $00 


0020 A2 


13 


RLINE 


LDXIM 


$13 


0022 B9 


00 02 


RCHAR 


LDAY 


$0200 


0025 C9 


2A 




CMPIM 


ASTER 


0027 F0 


2F 




BEQ 


EXIT 


0029 20 


BC E9 




JSR 


0UTALL 


002C C8 






INY 




002D CA 






DEX 




002E DO 


F2 




BNE 


RCHAR 


0030 20 


24 EA 




JSR 


CRCK 


0033 4C 


20 00 




JMP 


RLINE 



CLEAR DISPLAY 

INIT MEMORY POINTER 

INIT CHARACTER COUNTER 

GET CHARACTER FROM MEMORY 

TEST FOR TERMINATOR 

IF YES, THEN DONE 

ELSE, DISPLAY CHARACTER 

BUMP MEMORY POINTER 

DECR. CHARACTER COUNTER 

IF NOT ZERO, GET NEXT CHARACTER 

ELSE, PRINT LINE 

THEN CONTINUE 
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READ MESSAGE ONE LINE AT A TIME 



0036 20 


FO 


E9 


ONELIN 


JSR 


CRLF 


0039 AO 


00 






LDYIM $00 


003B A2 


13 




OLINE 


LDXIM $13 


003D B9 


00 


02 


OCHAR 


LDAY 


$0200 


0040 C9 


2A 






CMPIM 


ASTER 


0042 FO 


14 






BEQ 


EXIT 


0044 20 


BC 


E9 




JSR 


OUTALL 


0047 C8 








INY 




0048 CA 








DEX 




0049 DO 


F2 






BNE 


OCHAR 


004B 20 


93 


E9 


WAIT 


JSR 


INALL 


004E C9 


20 






CMPIM 


SPACE 


0050 DO 


F9 






BNE 


WAIT 


0052 20 


24 


EA 




3SR 


CRCK 


0055 4C 


3B 


00 




3MP 


OLINE 



CLEAR DISPLAY 
INIT MEMORY POINTER 
INIT CHARACTER COUNTER 
GET CHARACTER FROM MEMORY 
TEST TERMINATOR 
IF YES, THEN DONE 
ELSE, PRINT CHARACTER 
BUMP MEMORY POINTER 
DECR CHARACTER COUNTER 
IF NOT ZERO, CONTINUE 
ELSE WAIT FOR A SPACE 
FROM KAYBOARD TO CONTINUE 
NOT A SPACE 
SPACE, SO PRINT 
THEN GET NEXT LINE 



COMMON EXIT ROUTINE TO CLEAN UP 
THE DISPLAY AND RETURN TO MONITOR 



0058 20 FO E9 


EXIT 


JSR 


CRLF 


005B 20 FO E9 




JSR 


CRLF 


005E 00 




BRK 





OUTPUT TO BLANK LINES 



THEN EXIT TO MONITOR 



010C 



USER FUNCTION DEFINITIONS 
ORG $010C 



010C 4C 00 00 
010F 4C IB 00 
0112 4C 36 00 



JMP WRITE Fl TO WRITE MESSAGE 

JMP REM F2 TO READ ENTIRE MESSAGE 

JMP ONELIN F3 TO READ ONE LINE AT A TIME 
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A UlfallHL LLUH rnubunn run, inL jib 

Chris Sullivan 

9 Galsworthy Place 

Bucklands Beach 

Aukland, New Zealand 



The SYM-1 is a one board hobbyist computer 
similiar to the KIM but with a number of 
additional features. Since buying the SYM-1 
I have had a great deal of fun playing a- 
round with both the software and hardware 
sides of it. The SYM-1 monitor, Supermon, is an 
incredible monitor in 4K ROM, some of it's sub- 
routines are called by the following program. 

This program started off as a lesson in 
familiarity with the 6502 instruction set and 
using the Supermon subroutines to advantage , 
but the present version has been modified many 
times in order to increase the clock accuracy 
and, as my knowledge of the 6502 instruction set 
grows, increase coding efficiency. To use it 
one should start execution at :200. Then enter 
an "A" or "P" (Shift ASCII 5 0) to signify AM 
or PM. Then enter the hours (two digits), the 
program then outputs a space to separate the 
hours from the minutes. Finally enter 2 
digits to signify the minutes, the program will 
then increment the minutes by 1, and begin the 
clock sequence. This slight quirk makes it 
easier to set the clock using another clock, set 
up the "A" or "P", hours and first digit of the 
minutes, then enter the last digit of the 
minutes as the seconds counter of your setting 
clock reaches 0. 

There is another slight quirk in that the clock 

counts "All 59", "A12 00","A12 01" , 

"A12 59", "P01 00","P01 01" This simpli- 
fies the programming and means that 12:30 near 
midday is in fact, 12:30 AM according to this 
clock! However this is not likely to confuse 
many people . 

After setting up the initial time, the program 
adds 1 to the minutes and then carries on any 
carry into the hours, possibly changing "A" to 
iipn or v i C e versa. This section of the program 
could be made more efficient with full exploita- 



tion of the 6502 instruction set . The last sec- 
tion in the program is a 1 minute delay. I have 
rewritten this section many times in a search 
for an accurate 1 minute delay. The first part 
is a double loop which also scans the clock dis- 
play, this loop takes about 59-8 seconds. The 
second part is a double loop to "tweak" the de- 
lay up to 60 seconds and consists of 2 delays 
using the onboard 6532 timer. This timer is in- 
itialised in 1 of 4 memory locations, specifying 
*1024, *64, ^8, or *1 timing, e.g., the location 
to write to if one wants t1024 timing is A417. 
This location thus initialised is counted down 
in the 6532. The program reads this value until 
it becomes negative , at which time the delay is 
over. 

Some improvements to the program could fee made , 
for example better coding in the increment min- 
utes section. One could also add an alarm fea- 
ture, possibly using the on board beeper. The 
The section to update the time by one minute 
could be used as a part of a background real 
time clock, being called by a once-a-minute 
hardware interupt generated by an on board 6522 
timer chip. Once a minute, processing would be 
interupted for 100 cycles or so in order to up- 
date the real time clock. Such clocks have many 
uses, one of which is to ensure that certain 
number-crunching programs don't get tied down 
in big loops. 

This improved version occupies less RAM by using 
jumps to INBYTE rather than INCHAR and messy bit 
manipulations. The delay routine has been 
improved to use the on board 6532 timer , and 
also give greater resolution and hence greater 
timing accuracy. 

Editor's Note: This program is present primar- 
ily for its value in showing how to access the 
SYM's monitor for some of the routines. It is 
not an "optimal" program for a 24 hour clock, 
but should be a good starting point for owners 
of SYMs who wish to write similar programs. 



SYM-1 ELECTRONIC CLOCK 



BY CHRIS SULLIVAN AUGUST 27, 1978 



ORG $0200 



SPACE • 
ACCESS * 
INCHAR * 
INBYTE * 
OUTCHR * 
OUTBYT » 



$0020 ASCII SPACE 



$8A1B 
$81D9 
$8A47 
$82FA 



0200 20 86 8B BEGIN JSR ACCESS 



0203 20 1B 8A 
0206 85 00 

0208 18 

0209 20 D9 81 
020C 85 01 
020E A9 20 

0210 20 47 8A 
0213 20 D9 81 
0216 85 02 
0218 F8 



JSR 

STAZ 

CLC 

JSR 

STAZ 

LDAIM 

JSR 

JSR 

STAZ 

SED 



INCHAR 
$00 

INBYTE 

$01 

SPACE 

OUTCHR 

INBYTE 

$02 



GET A OR P 



GET HOURS 

SPACE CHARACTER 
OUTPUT A SPACE 
GET MINUTES 



SET DECIMAL MODE FOR REMAINDER OF PROGRAM 
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HAVING SET THE INITIAL TIME (LESS 1 MINUTE) 
UPDATE THE TIME: 



0219 18 






TIMLOP 


CLC 






021A A5 


02 






LDAZ 


$02 


GET MINUTES 


021 C 69 


01 






ADCIM $01 


INCREMENT 


021E 85 


02 






STAZ 


$02 




0220 38 








SEC 






0221 E9 


60 






SBCIM 


$60 


TEST IF NEW HOUR 


0223 F0 


03 






BEQ 


TIMEX 




0225 4C 


50 


02 




JMP 


NORSET 


IF NOT A NEW HOUR 


0228 A9 


00 




TIMEX 


LDAIM 


$00 




022A 85 


02 






STAZ 


$02 


SET MINUTES TO 00 


022C 18 








CLC 






022D A5 


01 






LDAZ 


$01 




022F 69 


01 






ADCIM 


$01 


INCR HOURS 


0231 85 


01 






STAZ 


$01 




0233 38 








SEC 






023 1 * E9 


13 






SBCIM 


$13 


TEST HOURS = 13 


0236 FO 


03 






BEQ 


TIMEY 




0238 4C 


50 


02 




JMP 


NORSET 




023B A9 


01 




TIMEY 


LDAIM 


$01 


YES, SET HOURS TO 1 


023D 85 


01 






STAZ 


$01 




023F A5 


00 






LDAZ 


$00 


GET A OR P 


0241 49 


50 






EORIM 


$50 


ASCII P 


0243 FO 


07 






BEQ 


TIMEZ 


IS 00 = ASCII P? 


0245 A9 


50 






LDAIM 


$50 


NO, THEN SET 00 TO P 


0247 85 


00 






STAZ 


$00 




0249 4C 


50 


02 




JMP 


NORSET 




024C A9 


41 




TIMEZ 


LDAIM 


$41 


YES, THEN SET 00 TO A 


024E 85 


00 






STAZ 


$00 




0250 A5 


00 




NORSET 


1 LDAZ 


$00 


GET A OR P 


0252 20 


47 


8A 




JSR 


OUTCHR 




0255 A5 


01 






LDAZ 


$01 


GET HOURS 


0257 20 


FA 


82 




JSR 


OUTBYT 




025A A9 


20 






LDAIM 


SPACE 




025C 20 


47 


8A 




JSR 


OUTCHR 




025F A5 


02 






LDAZ 


$02 


GET MINUTES 


0261 20 


FA 


82 




JSR 


OUTBYT 




0264 D8 








CLD 




CLEAR DECIMAL MODE 


0265 A2 


CO 






LDXIM 


$C0 


SETUP FOR ALMOST 60 SEC WAIT 


0267 AO 


7D 




WAITA 


LDYIM 


$7D 


COUNTER 


0269 A9 


01 




WAITB 


LDAIM 


$01 


NON-DISPLAYING CHARACTER 


026B 20 


47 


8A 




JSR 


OUTCHR 


REFRESH DISPLAY 


026E 88 








DEY 






026F DO 


F8 






BNE 


WAITB 


LOW ORDER COUNTER 


0271 CA 








DEX 




HIGH ORDER COUNTER 


0272 DO 


F3 






BNE 


WAITA 




0274 A2 


02 






LDXIM 


$02 


TWEAK TIME UP TO 60 SECONDS 


0276 A9 


4D 




WAITC 


LDAIM 


$4D 




0278 8D 


17 


A4 




STA 


$A417 


DIVIDE BY 1024 TIMER 


027B AD 


06 


A4 


WAITD 


LDA 


$A406 


REGISTER OF 6532 


027E 10 


FB 






BPL 


WAITD 




0280 CA 








DEX 






0281 DO 


F3 






BNE 


WAITC 




0283 F8 








SED 






0284 4C 


19 


02 




JMP 


TIMLOP 





VERIFY from 0200 thru 0286 is 356F. 



The following subroutines called form part of 
the SYM-1's SUPERMON monitor: 

ACCESS Enables the user program to write to 
system RAM, i.e. the RAM contained on the 6532. 
It is necessary to call ACCESS before calling 
most of the other system subroutines. 

INCHAR Get one ASCII charcter from the input 
device (here the hex keypad) and return with it 
in the A register. 

INBYTE Get two ASCII characters from the input 
device , using INCHAR and pack into a single byte 
in the A register. 



OUTCHR Output the ASCII data in the A register 
to the output device (here the six digit LED 
display) . 

OUTBYT Convert the byte in the A register into 
two ASCII characters and output these to the 
output device. 

Location A417 is used to initialise the 6532 
timer to count down from the value stored in 
A417, with a divide by 1024 cycles. Thus the 
timer register on the 6532 is decremented by one 
every 1024 clock cycles. The timer register 
sits at location A406 , and the time is consider- 
ed to be "up" when the value at A406 becomes 
negative . 
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SUPER HI-LO FOR THE SYM-1 

JackGieryic 

2041 138th Ave. N.W. 

Andover, MN 55303 



Super Hl-Lo has a new twist to the game. This program fits into the 
standard 1K SYM and execution begins at location 200. The left 
two LED digits are your upper limit (initialized to 99) and the 
middle two digits are your lower limit (initialized to 00). SYM picks 
a random number and you attempt to guess it. Your attempt count 
is seen in the right two digits. The right digit will blink when it's 
your last guess. 

After entering the command CO 200 CR press any key to start the 
contest. Enter your two digit guess (decimal only) and hit the "A" 
key. Win or loose you get an appropriate message at the end after 
which the LED's go blank. Hit any key and you are ready for a 
second game. If you didn't guess the number then you will be 
given one more chance in the next game. If you are lucky enough 
to guess the number then you will have one less chance the next 
game. 

For you SYMMERS who are interested in taking things one step 
further, you will find MESSAG an interesting subroutine you may 
want to incorporate in your own programs. This code is entirely 



relocatable except for the first four instructions which must be 
calculated if the code is moved. The routine uses page zero 
locations OD, OE, OF and 10, but you can change that too if 
necessary. The A and X registers contain the message buffer 
address per comments in the program. This message buffer 
contains segment codes which will light up any combination of 
LED segments. 

Refer to Figure 4-6 Keyboard/Display Schematic in your reference 
manual for the LED segments in the lower right corner. Segment 
"a" is turned on by setting bit to a one in a message buffer entry. 
Segment "b" is controlled by bit 1 and so on with segments c, d, e, 
f, g and the decimal point. Thus a hex 5C is a lower case O 
(segments c, d, e, and g). Feel free to change either message but 
don't forget to add a few OO characters at the start and end of 
your message. If you relocate the message buffer then change the 
register parameters prior to the call to MESSAG. 

One other note on the program. By changing the value at location 
206 you can alter the rate at which the right LED will blink when 
you reach your last chance. 



SYM SUPER HI-LO 
JOHN GIERYIC 
APRIL 1979 

SYM REFERENCES 



035E 


KYSTAT * 


$896A 


035E 


ACCESS * 


$8B86 


035E 


0UTBYT * 


$82FA 


03 5E 


SCAND * 


$8906 


035E 


KEYO * 


$8923 


03 5E 


GETKEY * 


$88AF 


035E 


ASCNIB * 


$8275 


035E 


DISBUF * 


$A640 


03 5E 


RDIG * 


$A645 



MESSAGE POINTERS 



035E 
03 5E 

0000 



MFAIL * 
MSUCC * 



$0360 
$0380 



ORG $0000 



0000 00 


UPP 


$00 


UPPER NUMBER 


0001 00 


LOW 


$00 


LOWER NUMBER 


0002 00 


ACNT = 


$00 


ATTEMPT COUNT 


0003 00 


RAN = 


$00 


RANDOM NUMBER 


0004 00 


TEMP = 


$00 





2-98 
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0005 


00 






UGES 


= 


$00 


GUESS UNITS 


0006 


00 






TGES 


- 


$00 


GUESS TENS 


0007 


00 






BLINK 


- 


$00 


BLINK FLAG 1 = BLINK 


0008 


00 






TDIG 


= 


$00 


SAVE RDIG 


0009 


00 






DARK 


- 


$00 


1 = DARK 


000A 


00 






LATT 


- 


$00 


ATTEMPT LIMIT 


OOOB 


00 






ONOFF 


- 


$00 


BLINKING 


OOOC 


00 






BLIM 


- 


$00 


BLINKING LOOP COUNT INIT 


OOOD 


00 






COUNT 


- 


$00 


i 


OOOE 


00 






LOOPA 


r 


$00 




OOOF 


00 






LOOPB 


= 


$00 




0010 


00 






CLIM 


= 


$00 


MESSAGE LIMIT 


0200 










ORG 


$0200 


PROGRAM ORIGIN 


0200 


20 


86 


8B 


BEGIN 


JSR 


ACCESS 




0203 


A9 


60 






LDAIM $60 


INIT BLINKING LOOP LIMIT 


0205 


85 


OC 






STA 


BLIM 




0207 


A9 


06 






LDAIM $06 


INIT ATTEMPT COUNTER 


0209 


85 


OA 






STA 


LATT 




020B 


A9 


63 




TILL 


LDAIM $63 


INIT UPPER LIMIT 


020D 


85 


00 






STA 


UPP 




020F 


A9 


00 






LDAIM $00 


INIT BLINK FLAG 


0211 


85 


07 






STA 


BLINK 




0213 


85 


01 






STA 


LOW 


LOWER LIMIT 


0215 


85 


02 






STA 


ACNT 


ATTEMPT COUNT 


0217 


A9 


01 






LDAIM $01 




0219 


85 


03 






STA 


RAN 


RANDOM NUMBER 


021B 


E6 


03 




INCRAN 


INC 


RAN 


INCREMENT RANDOM NUMBER 


021D 


A5 


03 






LDA 


RAN 




021F 


C9 


63 






CMPIM $63 


IF EQUAL 99 DECIMAL 


0221 


DO 


04 






BNE 


KEYIN 




0223 


A9 


02 






LDAIM $02 


THEN RESET TO 2 


0225 


85 


03 






STA 


RAN 




0227 


20 


6A 


89 


KEYIN 


JSR 


KYSTAT 


IS A KEY DOWN? 


022A 


90 


EF 






BCC 


INCRAN 


LOOP UNTIL ONE IS DOWN 


022C 


A5 


00 




LIMITS 


LDA 


UPP 


PUT UPPER, LOWER AND 


022E 


20 


00 


03 




JSR 


HTDEC 


ATTEMPT COUNT IN 


0231 


20 


FA 


82 




JSR 


OUTBYT 


DISPLAY BUFFER 


0234 


A5 


01 






LDA 


LOW 




0236 


20 


00 


03 




JSR 


HTDEC 




0239 


20 


FA 


82 




JSR 


OUTBYT 




023C 


A5 


02 






LDA 


ACNT 




023E 


20 


00 


03 




JSR 


HTDEC 




0241 


20 


FA 


82 




JSR 


OUTBYT 




0244 


20 


06 


89 


DISP 


JSR 


SCAND 


LIGHT LED 


0247 


20 


23 


89 




JSR 


KEYQ 


IF KEY IS DOWN, 


024A 


DO 


30 






BNE 


READK 




024C 


A5 


07 






LDA 


BLINK 


IF BLINKING IS REQUESTED 


024E 


C9 


01 






CMPIM $01 




0250 


DO 


F2 






BNE 


DISP 




0252 


A5 


OB 






LDA 


ONOFF 


IF TIME TO TURN CHARACTEI 
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0254 DO 


21 






BNE 


INCLOP 




0256 A5 


09 






LDA 


DARK 


IF TURN CHAR. OFF 


0258 C9 


01 






CMPIM $01 




025A DO 


OE 






BNE 


RIGHT 




025C AD 


45 


A6 




LDA 


RDIG 


THEN GET CHARACTER 


025F 85 


08 






STA 


TDIG 


SAVE IT 


0261 A9 


00 






LDAIM $00 


SET RIGHT DIGIT BLANK 


0263 8D 


45 


A6 




STA 


RDIG 




0266 C6 


09 






DEC 


DARK 


SWITCH FLAG 


0268 FO 


07 






BEQ 


LCOUNT 




026A A5 


08 




RIGHT 


LDA 


TDIG 


ELSE RESTORE RIGHT DIGIT 


026C 8D 


45 


A6 




STA 


RDIG 




026F E6 


09 






INC 


DARK 


SWITCH FLAG 


0271 A5 


OC 




LCOUNT 


LDA 


BLIM 


RESET LOOP COUNTER 


0273 85 


OB 






STA 


ONOFF 




0275 DO 


CD 






BNE 


DISP 




0277 E6 


OB 




INCLOP 


INC 


ONOFF 


INCR. LOOP COUNTER 


0279 4C 


44 


02 




JMP 


DISP 


LOOP 


027C 20 


AF 


88 


READK 


JSR 


GETKEY 


GET DEPRESSED KEY 


027F 20 


75 


82 




JSR 


ASCNIB 




0282 C9 


OA 






CMPIM $0A 


IS IT "A" (ATTEMPT) 


0284 FO 


OB 






BEQ 


SETLOP 


YES 


0286 AA 








TAX 




NO 


0287 A5 


05 






LDA 


UGES 


MOVE PREVIOUS KEY 


0289 85 


06 






STA 


TGES 


TO TENS DIGIT 


028B 8A 








TXA 






028C 85 


05 






STA 


UGES 


PUT NEW KEY INTO UNITS 


028E 4C 


44 


02 




JMP 


DISP 


LOOP 


0291 A6 


06 




SETLOP 


LDX 


TGES 


SET LOOP INDEX (TENS) 


0293 A9 


00 






LDAIM 


$00 


INIT A REGISTER 


0295 18 








CLC 




CLEAR CARRY FALG 


0296 CA 






DECX 


DEX 




DECR. X REG. 


0297 30 


04 






BMI 


ADUNIT 


IF NEG, THEN FINISHED 


0299 69 


OA 






ADCIM $0A 


ELSE ADD 10 


029B DO 


F9 






BNE 


DECX 


LOOP 


029D 65 


05 




ADUNIT 


ADC 


UGES 


ADD UNITS VALUE 


029F C5 


03 






CMP 


RAN 


COMPARE TO RANDOM 


02A1 DO 


03 






BNE 


ADUP 




02A3 4C 


E4 


02 




JMP 


SUCEED 


GUESS = RANDOM 


02A6 90 


09 




ADUP 


BCC 


TLOW 




02A8 C5 


00 






CMP 


UPP 




02AA BO 


OB 






BCS 


INCA 




02AC 85 


00 




RUP 


STA 


UPP 


REPLACE UPPER WITH GUESS 


02AE 4C 


B7 


02 




JMP 


INCA 




02B1 C5 


01 




TLOW 


CMP 


LOW 




02B3 90 


02 






BCC 


INCA 




02B5 85 


01 






STA 


LOW 


REPLACE LOWER WITH GUESS 


02B7 E6 


02 




INCA 


INC 


ACNT 


INCR. ATTEMPT COUNT 


02B9 A5 


02 






LDA 


ACNT 


LIMIT REACHED? 


02BB C5 


OA 






CMP 


LATT 




02BD DO 


03 






BNE 


TEST 


NO 


02BF 4C 


D8 


02 




JMP 


FAIL 


YES = FAILURE 
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02C2 38 TEST 

02C3 A5 OA 

02C5 E5 02 

02C7 C9 01 

02C9 DO OA 

02CB E6 07 

02CD A5 OC 

02CF 85 OB 

02D1 A9 01 

02D3 85 09 

02D5 4C 2C 02 WAIT 



SEC 




LDA LATT 


LAST ATTEMPT COMING UP 


SBC ACNT 




CMPIM $01 




BNE WAIT 


NO 


INC BLINK 


YES - INIT FOR BLINKING 


LDA BLIM 




STA ONOFF 




LDAIM $01 




STA DARK 




JMP LIMITS 


GO WAIT FOR NEXT ATTEMPT 



02D8 E6 OA 
02DA A2 03 
02DC A9 60 
02DE 20 17 03 
02E1 4C OB 02 

02E4 C6 OA 
02E6 A2 03 
02E8 A9 80 
02EA 20 17 03 
02ED 4C OB 02 



FAIL INC LATT FAILURE = INCR ATTEMPT LIMIT 
LDXIM MFAIL / MESSAGE HI BYTE 
LDAIM MFAIL MESSAGE LO BYTE 
JSR MESSAG DISPLAY FAILURE MESSAGE 
JMP TILL RESTART HI-LO 

SUCEED DEC LATT SUCCESS = DECR ATTEMPT LIMIT 
LDXIM MSUCC / MESSAGE HI BYTE 
LDAIM MSUCC MESSAGE LO BYTE 
JSR MESSAG DISPLAY SUCCESS MESSAGE 
JMP TILL RESTART HI-LO 



SUBROUTINE HTDEC 



0300 



ENTRY JSR HTDEC 

THIS ROUTINE WILL CONVERT A HEX NUMBER 

TO DECIMAL. UPON ENTRY THE A REGISTER CONTAINS 

THE NUMBER TO CONVERT. UPON EXIT THE A REG. 

CONTAINS THE UNITS DIGIT AND THE X REGISTER 

CONTAINS THE TENS DIGIT. 

ORG $0300 



0300 A2 00 


HTDEC 


LDXIM $00 


INIT TENS COUNT 


0302 38 




SEC 






0303 E9 OA 


HTA 


SBCIM $0A 


SUBTRACT 10 DECIMAL 


0305 30 03 




BMI 


HTB 




0307 E8 




INX 




INCR. TENS DIGIT 


0308 DO F9 




BNE 


HTA 




030A 69 OA 


HTB 


ADCIM $0A 


UNITS DIGIT 


030C 85 04 




STA 


TEMP 




030E 8A 




TXA 






030F 18 




CLC 






0310 2A 




ROLA 






0311 2A 




ROLA 






0312 2A 




ROLA 






0313 2A 




ROLA 






0314 65 04 




ADC 


TEMP 




0316 60 




RTS 
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SUBROUTINE MESSAG 

ENTRY JSR MESSAG 

THIS ROUTINE WILL PARADE THE MESSAGE SPECIFIED 
BY THE CALLER ACROSS THE LEDS. THE A REGISTER 
CONTAINS THE LO BYTE OF THE MESSAGE ADDRESS. THE 
X REG. CONTAINS THE HI BYTE OF THE MESSAGE ADDRESS, 
THE FIRST BYTE OF THE MESSAGE CONTAINS THE NUMBER 
OF BYTES IN THE MESSAGE MINUS 5. THIS COUNT 
INCLUDES THE FIRST BYTE 



0317 8D 24 


03 


MESSAG 


; STA 


MAD 


+01 CHANGE INSTRUCTION 


031A 8E 25 


03 




STX 


MAD 


+02 


031D 8D 37 


03 




STA 


MADX 


+01 CHANGE INSTRUCTION 


0320 8E 38 


03 




STX 


MADX 


+02 


0323 AD FF 


FF 


MAD 


LDA 


$FFFF 


ADDRESS WILL BE CHANGED 


0326 85 10 






STA 


CLIM 




0328 A9 00 






LDAIM $00 




032A 85 OD 






STA 


COUNT 




032C 85 OE 






STA 


LOOPA 




032E 85 OF 






STA 


LOOPB 




0330 E6 OD 






INC 


COUNT 




0332 A4 OD 




MESS 


LDY 


COUNT 




0334 A2 00 






LDXIM $00 




0336 B9 FF 


FF 


MADX 


LDAY 


$FFFF 


ADDRESS WILL BE CHANGED 


0339 9D 40 


A6 




STAX 


DISBUF 




033C C8 






INY 






033D E8 






INX 






033E EO 06 






CPXIM $06 




0340 DO F4 






BNE 


MADX 




0342 E6 OD 






INC 


COUNT 




0344 20 06 


89 


MESSA 


JSR 


SCAND 




0347 E6 OE 






INC 


LOOPA 




0349 DO F9 






BNE 


MESSA 




034B E6 OF 






INC 


LOOPB 




034D A5 OF 






LDA 


LOOPB 




034F C9 02 






CMPIM $02 




0351 DO Fl 






BNE 


MESSA 




0353 A5 OE 






LDA 


LOOPA 




0355 85 OF 






STA 


LOOPB 




0357 A5 OD 






LDA 


COUNT 




0359 C5 10 






CMP 


CLIM 




035B DO D5 






BNE 


MESS 




035D 60 






RTS 







THE FAILURE MESSAGE BEGINS AT LOCATION 0360. 
THE FIRST BYTE IS THE HEX NUMBER OF BYTES IN 
THE MESSAGE MINUS FIVE. THE MESSAGE IS IN THE 
FORM OF SEGMENT CODES. A MEMORY LISTING FOLLOWS. 
LOAD THIS BEGINNING AT LOCATION 0360. 

0360 OB 00 00 6E 3F 3E 00 38 3F 3F 
0368 3F 3F 6D 79 00 00 00 00 

THE SUCCESS MESSAGE BEGINS AT LOCATION 0380. 

0380 08 00 00 39 5C 50 50 79 
0388 58 78 00 00 00 
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SYM-1 TAPE DIRECTORY 

John Gieryic 

2041 138th Avenue N.W. 

Andover, MN 55303 



The SYM-1 's high speed tape format enables re- 
cording and loading of IK of RAM in just a few 
seconds (185 bytes per second). This quick and 
easy means of saving and restoring memory will 
have you SYM-1 owners quickly wrapped up in 
tape. With the possibility of 254 ID'S (01 thru 
FE) you may forget which ID'S you've already 
used or where you stored a particular identifi- 
er. Maintaining records sometimes seems second- 
ary when you are eagerly pursuing an idea. 

This program will refresh your memory quickly. 
When DIRECTORY "finds" a tape record it will ex- 
tract the ID, startind address and ending ad- 
dress + 1 . This information will be paraded 
across the LED's in much the same format used 
when you saved the data on tape. The program 
will then continue its search for more records. 
The process is terminated by pressing the RST 
key. 

The first part of the program (locations 205 
thru 232) is taken from the monitor routine 
LOADT. Since this is not a subroutine (callable 
by a JSR) , I had to copy the necessary logic 



into my program. The last part of the program 
makes extensive use of subroutine calls to two 
of my own subroutines and several of the moni- 
tor's. Any newcomers to programming should take 
time to trace through this in order to see the 
power of subroutines. 

SYM TAPE DIRECTORY 

High Speed Format Only: START: GO 200 CR 

TAPE FORMAT: 

256 Sync Char * ID SAL SAH EAL+1 EAH+1 

DATA / CKL CKH EOT EOT 



This program will extract the tape identifier 
(ID), the starting address (SAL and SAH), the 
ending address (EAL and EAH) and will "parade" 
this information on the LED's. The program will 
then go back to the tape and search for the next 
record . The program is terminated by pressing 
the RST key. 



SYM TAPE DIRECTORY 



SYM REFERENCES 



ACCESS * 
START * 
SYNC * 
RDCHTX * 
RDBYTX * 
RDBYTH * 
OUTDSP * 
NIBASC * 
SCAND * 
DISBUF * 



$8DB6 
$8D82 
$8DDE 
$8E28 
$8DE2 
$89C1 
$8309 
$890B 
$A641 



DDRIN * 
VIAACR * 
LATCHL « 
MODE * 



$A002 
$A00B 
$A004 
$00FD 



ORG $0000 



0000 00 


ID 


= 


$00 


TAPE ID LOCATION 


0001 00 


SAL 


= 


$00 




0002 00 


SAH 


r 


$00 




0003 00 


EAL 


= 


$00 




0004 00 


EAH 


= 


$00 




0005 00 


TEMP 


= 


$00 




0006 00 


LCNT 


= 


$00 


LOW LOOP COUNTER 


0007 00 


HCNT 


= 


$00 


HIGH LOOP COUNT 
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0200 



ORG $0200 PROGRAM ORIGIN 



0200 


20 86 8B BEGIN 


JSR 


ACCESS 


ENABLE SYM PROTECTED M] 


0203 


AO 80 


LDYIM 


$80 


SET HIGH SPEED MODE 


0205 


20 B6 8D 


JSR 


START 


INIT TAPE ROUTINES 


0208 


AD 02 AO 


LDA 


DDRIN 




020B 


29 BF 


ANDIM 


$BF 




020D 


8D 02 AO 


STA 


DDRIN 




0210 


A9 00 


LDAIM $00 




0212 


8D OB AO 


STA 


VIAACR 




0215 


A9 1F 


LDAIM $1F 


SET UP TIMER 


0217 


8D 04 AO 


STA 


LATCHL 




021A 


20 82 8D FIND 


JSR 


SYNC 


SEARCH TAPE FOR RECORD 


021D 


20 DE 8D READ 


JSR 


RDCHTX 


GET CHARACTER 


0220 


C9 2A 


CMPIM 


t» 


COMPARE FOR ASTERISK 


0222 


FO 06 


BEQ 


TEST 


MATCH 


0224 


C9 16 


CMPIM $16 


TEST SYNC CHAR 


0226 


DO F2 


BNE 


FIND 




0228 


FO F3 


BEQ 


READ 




022A 


A5 FD TEST 


LDA 


MODE 




022C 


29 BF 


ANDIM 


$BF 




022E 85 FD 


STA 


MODE 




0230 


20 28 8E 


JSR 


RDBYTX 


GET ID 


0233 


85 00 


STA 


ID 


SAVE ID 


0235 


20 28 8E 


JSR 


RDBYTX 


GET SAL FROM TAPE 


0238 


85 01 


STA 


SAL 


SAVE 


023A 


20 28 8E 


JSR 


RDBYTX 


GET SAH FROM TAPE 


023D 


85 02 


STA 


SAH 


SAVE 


023F 


20 E2 8D 


JSR 


RDBYTH 


GET EAL 


0242 


85 03 


STA 


EAL 


SAVE 


0244 


20 E2 8D 


JSR 


RDBYTH 


GET EAH 


0247 


85 04 


STA 


EAH 


SAVE 


0249 


A9 00 


LDAIM $00 


CLEAR OUT DISPLAY BUFF 


024B 


8D 41 A6 


STA 


DISBUF 




024E 


8D 42 A6 


STA 


DISBUF 


+01 


0251 


8D 43 A6 


STA 


DISBUF 


+02 


0254 


8D 44 A6 


STA 


DISBUF 


+03 


0257 


8D 45 A6 


STA 


DISBUF 


+04 


025A 


A5 00 


LDA 


ID 


TAPE ID 


025C 


20 96 02 


JSR 


DISPL 


SEND IT TO DISPLAY 


025F 


A9 2D 


LDAIN 


I '- 


ASCII DASH 


0261 


20 C1 89 


JSR 


OUTDSP 


SEND IT TO DISPLAY 


0264 


20 B5 02 


JSR 


DELAY 


PAUSE 


0267 


A5 02 


LDA 


SAH 


START ADDRESS HIGH 


0269 


20 96 02 


JSR 


DISPL 


SEND TO DISPLAY 


026C 


A5 01 


LDA 


SAL 


START ADDRESS LOW 


026E 


20 96 02 


JSR 


DISPL 


SEND TO DISPLAY 


0271 


A9 2D 


LDAIM '- 


DASH 


0273 


20 C1 89 


JSR 


OUTDSP 


DISPLAY IT 


0276 


20 B5 02 


JSR 


DELAY 


PAUSE 


0279 


A5 04 


LDA 


EAH 


END ADDRESS HIGH 


027B 


20 96 02 


JSR 


DISPL 




027E 


A5 03 


LDA 


EAL 


END ADDRESS LOW 


0280 


20 96 02 


JSR 


DISPL 
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0283 A9 00 
0285 20 C1 89 
0288 20 B5 02 
028B A9 00 
028D 20 C1 89 
0290 20 B5 02 
0293 4C 00 02 



LDAIM $00 ADD 2 TRAILING BLANKS 



JSR 
JSR 



OUTDSP 
DELAY 



LDAIM $00 
JSR 
JSR 
JMP 



OUTDSP 
DELAY 

BEGIN 



GO TO NEXT RECORD ON TAPE 



SUBROUTINE DISPL 



ENTRY LDA (BINARY DATA) 
JSR DISPL 

THE UPPER FOUR BITS IN THE A REGISTER ARE 
CONVERTED TO THEIR ASCII EQUIVALENT, SENT 
TO THE DISPLAY VIA SUBROUTINE DELAY. NEXT 
THE PROCESS IS REPEATED WITH THE LOWER 
FOUR BITS. 



0296 85 


05 




DISPL STA 


TEMP 


0298 6A 






RORA 




0299 6A 






RORA 




029A 6A 






RORA 




029B 6A 






RORA 




029C 29 


OF 




ANDIM 


$0F 


029E 20 


09 


83 


JSR 


NIBASC 


02A1 20 


C1 


89 


JSR 


OUTDSP 


02A4 20 


B5 


02 


JSR 


DELAY 


02A7 A5 


05 




LDA 


TEMP 


02A9 29 


OF 




ANDIM 


$0F 


02AB 20 


09 


83 


JSR 


NIBASC 


02AE 20 


C1 


89 


JSR 


OUTDSP 


02B1 20 


B5 


02 


JSR 


DELAY 


02B4 60 






RTS 





SAVE A REGISTER 

RIGHT JUSTIFY LEFT FOUR BITS 



MASK TO FOUR BITS 

CONVERT TO ASCII 

SEND TO DISPLAY 

PAUSE 

RESTORE A 

MASK OFF TO LOWER FOUR BITS 

CONVERT TO ASCII 

SEND TO DISPLAY 

PAUSE 

RETURN 



SUBROUTINE DELAY 



ENTRY JSR DELAY 



THIS ROUTINE WILL CALL SCAND FOR A PERIOD 
OF TIME IN ORDER TO ILLUMINATE THE 6 LED'S 



02B5 A9 00 


DELAY 


LDAIM 


$00 


INIT LOOP CO 


02B7 85 06 




STA 


LCNT 




02B9 85 07 




STA 


HCNT 




02BB 20 06 89 


WAIT 


JSR 


SCAND 


SYM DISPLAY 


02BE E6 05 




INC 


LCNT 




02C0 DO F9 




BNE 


WAIT 


DELAY 


02C2 E6 07 




INC 


HCNT 




02CH A5 07 




LDA 


HCNT 


TEST COUNTER 


02C6 C9 03 




CMPIM 


$03 




02C8 DO F1 




BNE 


WAIT 




02CA 60 




RTS 
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SYM-1 6522-BASED TIMER 

JohnCieryic 

2041 138 Avenue, NW 

Andover, MN 55303 



Your SYM-1 comes with a number of timers capable of a wide 
range of timing intervals. Unfortunately the SYM REFERENCE 
MANUAL does not provide information which can easily be 
digested by a novice. I'd like to attempt a more down to earth 
description of timer 1 on the Versatile Interface Adapter 6522 for 
those of us who aren't hardware inclinded. This timer is capable of 
very accurate time delays in the range of fractions of a second. It 
has an interrupt associated with it plus the ability to generate 
evenly spaced interrupts. 

Setting Up The Interrupts 

The first step in programming this timer is to place an address in 
the Interrupt Request Vector [IRQ] located at address A67E and 
A67F. A67E contains the low byte of the address and A67F contains 
the high byte. This address in the IRQ is the location you will be 
"jerked to" when the timer times down and generates an interrupt. 
Your code will be as follows: 



Location 

200 
203 
205 
208 
20A 



Code 

20 86 8B JSR ACCESS disable memory write protect 
A9 00 LDA #00 interrupt address 

8D 7E A6 STA A67E Low b V te 

A9 03 LDA #03 

8D 7F A6 STA A67F H '8 h bv t e 



Our next step is to set two locations so the hardware can "see" the 
interrupt and tell us where it is coming from. These two locations 
are the Interrupt Flag Register [IFR] at location AOOD and the 
Interrupt Enable Register [IER] at location AOOE. The IER controls 
interrupts from 7 different sources on the 6522. We will only be 
interested in bit 6. This is the one for our timer T1. We must set this 
bit to a logic 1. This tells the 6522 we will accept interupts from 
timer T1. The code follows: 

Location Code 

20D A9 CO LDA #CO 

20F 8D OE AO STA AOOE 

"Hey, wait a minute! Where did that 'C come from? I thought you 
said we were only going to set bit 6?" 

Yes, I did. We must supply the 6522 with a bit more information 
(no pun intended). We must tell it we are going to SET one of the 
IER bits. This is done by setting bit 7 to a logic 1, hence our CO. 



Note bits thru 5 are a zero. This tells the 6522 we don't want to 
change the condition of any of the other bits in the IER when we 
do our store. From this you should be able to see how we CLEAR 
any one of the IER bits. You guessed it. Bit 7 will be a logic zero 
and the IER bit(s) to be cleared will be a logic 1. 



(he Interrupt Flag Register [IFR] tells the user which interrupt has 
occurred (when we get one). This information can be used by the 
interrupt routine to "see" which element on the 6522 gave us the 
interrupt. We want to initialize (clear) our flag bit for timer T1 (bit 
6). I don't want to disturb any of the other bits. Note clearing a bit 
in the IFR is not the same as in the IER. 



Location 


Code 




212 


AD OD AO 


LDA AOOD 


215 


29 BF 


AND #BF 


217 


8D OD AO 


STA AOOD 



When we do get an interrupt from any of the enabled 6522 devices 
(bit=1 in the IER) then bit 7 in the IFR and the corresponding bit 
in the IFR will both be set to a logic 1. We can determine if this 
interrupt came from the 6522 by just looking at bit 7 of the IFR 
(ASL followed by a test of the C bit). If bit 7 is a logic zero then the 
interrupt came from some other place. This will save some time 
when we are trying to find out where this interrupt originated. You 
should log this bit 7 information in the back of your mind since I 
won't use it here. 



Setting Up The Timer 

One more step before starting our timer. I'm going to set our timer 
to the free running mode. This means it will count down, give an 
interrupt and then immediately begin counting down again. I 
won't need to worry about instruction cycle times within any 
timing loops. I know I will get repeated interrupts at the exact 
interval requested. Setting the Auxiliary Control Register [ACR] bit 
7 to a loyic 1 establishes the free running mode. 



Location 



21A 
21C 



Code 

A9 CO 
8D OB AO 



LDA #CO 
STA AOOB 
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Now we have the four mechanical steps finished.. .setting up the 
IRQ, IFR, IER and ACR. Setting the time delay is next. The T1 timer 
has two latches (high and low order} and two counters (high and 
low order). This results in a 16 bit counter. The low order latch is 
loaded first. In this example I will set up for a delay of .05 seconds. 
This corresponds to a count of C350 (one count for each 
microsecond). 



Location 

21F 
221 



Code 

A9 50 
8D 06 AO 



LDA #50 load low order latch 
STA A006 



Now we will load the high order latch with the value C3. This 
instruction will do more than load the high order latch. It will also 
write the high order latch into the high order counter as well as 
write the low order latch into the low order counter. This one 
instruction will transfer all 16 bits from the latches to the counter 
at the same instant. Without this hardware assist we would be 
unable to load the counter accurately since the counter begins to 
count down immediately after being loaded. 



If you were programming a clock you would now increment a 
counter. If the counter equalled twenty then reset it and increment 
the time in the display buffer by one second. 

Now the interrupt is "serviced." In order to clear the way for the 
next interrupt, the T1 interrupt flag must be reset otherwise the 
next interrupt will be blocked. This clearing can be done in either 
of two ways. Method 1 will write into the high order latch. This 
write uses a different address for the store instruction than the 
write used to initialize the timer counter. In doing this the T1 
interrupt flag will be reset but it will not disturb the current value 
in the counter. Remember this is a free running counter in our 
example and automatically resets itself when the interrupt 
occurred. By this point in time it has already counted down from 
its original value of C350 toward zero (and the next interrupt). 
Method 2 will read the low order counter. Either method will reset 
the T1 interrupt flag. 



Method 1 



Code 



Location 


Code 




224 


A9 C3 


LDA #C3 


226 


8D 05 AO 


STA A005 



load high order latch 



A9 C3 
SD 07 AO 



LDA #C3 
STA A007 



The timer is now running and will generate an interrupt .05 
seconds (C350) later. This corresponds to 50,000 clock cycles. If 
you were programming a clock your remaining code at location 
229 would now initialize your hours, minutes and seconds 
counters, initialize the display buffer and then go into a tight loop 
calling SCAND in order to illuminate the LED's. 



Method 2 



Code 



AD 04 AO LDA A004 



Servicing The Interrupt 

Our interrupt routine at location 300 is now executed when we 
receive the interrupt. The first thing we must do is SAVE the 
processor status and registers. This is done so we can restore these 
items when we are finished with our interrupt processing and jump 
back into SCAND from where we were "jerked out." 

Location Code 

300 08 PHP save processor status on stack 

301 48 PHA save accumulator on stack 

302 8A TXA transfer X to A 

303 48 PHA save X register on stack 

304 98 TYA transfer Y to A 

305 48 PHA save Y register on stack 



Now the processor status and registers can be restored and a return 
executed to the location in SCAND at which the interrupt 
occurred. Remember you must restore the registers in the exact 
reverse order used at the entrance to the interrupt routine. This is a 
major point. 



Code 



pull accumulator from stack 

transfer to Y index 
pull accumulator from stack 

transfer to X index 
pull accumulator from stack 
pull processor status from stack 
Return from Interrupt 



That's the end of the lesson for today. In a future article I will use 
the information presented here to develop an operating system for 
your SYM-1 



68 


PLA 


A8 


TAY 


68 


PLA 


AA 


TAX 


68 


PLA 


28 


PLP 


40 


RTI 
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KIH-1 AS A DIGITAL VOLTMETER 

Joseph L. Powlette and Charles T. Wright 

Hall of Science, Moravian College 

Bethlehem, PA 18018 



Several programs have been described in the lit- 
erature which turn a KIM-1 microcomputer into a 
direct reading frequency counter. In "A Simple 
Frequency Counter Using the KIM-1" by Charles 
Husbands (MICRO, No. 3, Pp. 29-32, Feb/Mar ,1978) 
and in "Here's a Way to Turn KIM Into "a Freq- 
uency Counter" by Joe Laughter (KIM User's Note 
Issue 3, Jan, 1977), good use is made of KIM-1 's 
interval timers and decimal mode to produce a 
useful laboratory instrument. A simple change 
in hardware will allow these same programs to 
serve as the basis of a direct reading digital 
voltmeter. This article describes an inexpen- 
sive voltage-to-frequency converter (VFC) cir- 
cuit which is compatible with these programs and 
also describes some software modifications which 
will allow Husbands' program to operate down to 
low frequency (10 HZ) values. 

Hardware Configuration 

The VFC circuit is shown in Figure 1. The 4151 
chip is manufactured by Raytheon and is avail- 
able from Active Electronic Sales Corp., P.O. 
Box 1035, Framingham, MA 01701 for $5-00 or from 
Jameco Electronics, 1021 Howard Street, San 
Carlos, CA 94070 for $5-95. The circuit param- 
eters given in Figure 1 have been modified from 
the values suggested by the manufacturer in 
ord er to match the pulse requirement for the KIM 
IRQ signal . The frequency of the output pulse 
is proportional to the input voltage and the IK*, 
(multiturn) trimpot is used to adjust the full- 
scale conversion so that 10 volts corresponds to 
a frequency of 10 KHz. It is not necessary to 
calibrate the KIM-1 as a frequency meter since 
any variation in its timing can be compensated 
for by the trimpot . A known potential is con- 
nected to the VFC input and the trimpot adjust- 
ed until the KIM readout agrees with the known 
voltage value. The linearity of the VFC is 
better than 1$ down to 10 mv (linearity of 0.05? 
can be achieved in a "precision mode" which is 
described in the Raytheon literature) . The 
circuit will not respond to negative voltages 
and protection of the chip is provided by the 
1N914 diode. If negative voltage readings are 
also required, the input to the VFC can be pre- 



ceded by an absolute value circuit (see IC OP- 
AMP cookbook by Jung, p. 193, Sams Pub.). 

To operate the system using Laughter's software 
the following connections should be made : 1 ) 
the output (pin 3) of the VFC to the PB0 input 
of KIM (pin 9 on the app lication connector) and 
2) PB7 on the KIM to IRQ on the KIM (A- 15 to E- 
4). Execution of the program should cause the 
voltage to flash on the KIM display in one sec- 
ond intervals. 

The software described in Husbands' article will 
not operate below 500 Hz. This limit is caused 
by the fact that the contents of the interval 
timer are read to determine if the 100 millisec- 
ond interval has elapsed and since the interval 
counter continues to count (at a 1T rate) after 
the interval has timed out , there are times when 
the contents of the interval timer are again 
positive. If the interrupt should sample during 
this time , the branch on minus instruction will 
not recognize that the interval has elapsed. 
This problem will manifest itself as a fluctuat- 
ing value in the display and is most likely to 
occur at low frequencies. One solution is to 
establish the interval timer in the interrupt 
mode and then allow the program to arbitrate the 
interrupt, i.e., to determine whether the inter- 
rupt was due to the input pulse or the expira- 
tion of the 100 millisecond interval timer. The 
necessary changes to Husbands' program are given 
in Figure 2. The hardware connectio ns are : 1) 
output of the VFC (pin 3) to the KIM IRQ (pin 4 
on the KIM expansion connector) , and 2) PB7 on 
the KIM to IRQ on the KIM (A- 15 to E-4). The 
modified program starts at 0004 with a clear 
interrupt instruction. Locations 17FE and 17FF 
should contain 21 00 and 17FA and 17FB should 
have values 00 10 (or 00 1C) . 



+ I2V 



Voltage input 
to + lOV 



^ IOOK IN9I4 

O-vw 



.01 pf 



o.oi\ y 



'6.8K- 




TO PIN 6 

K TRIM POT 



- IOOK 



O 

frequency 
output 



OJ 



0033pf 



+ I2V 



Figure 1. Voltage-to-Frequency Converter (VFC) 
circuit . 
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Additional Comments 

The program modifications above will also extend 
Husbands' frequency counter circuit down to 10 
Hz (corresponding to 1 input, interrupt in 100 
milliseconds). Since the 74121 monostable mul- 
tivibrator does not have an open collector 
output, PB7 should not be connected (along with 
the 74121 output) directly to the KIM IRQ. Two 
solutions are: 

1. Leave PB7 unconnected. The expir- 
ation of the 100 millisecond clock will 
be recognized on the next input interrupt 
after the timer has timed out . The int- 
erval timer will not interrupt the micro- 
processor , however . 

2. Connect PB7 to one input of a two input 
AND gate and the output of the monostable 
to the second input . The output of the 
AND gate should be connected to the KIM 
IRQ. The expiration of the 100 millisec- 
ond interval will now also interrupt the 
processor and will result in a faster 
response to a change in frequency values 
(from high to very low) as well as a more 
accurate low frequency count . 



The authors would like to thank Charles Husbands 
for taking the time to answer our questions and 
for pointing out the article by Laughter. 



ORG 
0004 58 CLI 
0014 8D OF 17 STA 
0024 AD 07 17 LDA 
003C 8D OF 17 STA 



$ 0004 

clear interrupt flag 
clock in interrupt mode 
read interrupt flag bit 7 
clock in interrupt mode 



Figure 2. Changes in Husbands' program to ext- 
end the low frequency range to 10 Hz. 



INSIDE THE KIM TTY SERVICE 

Ben Doutre 

621 Doyle Road 

Mont St-Hilaire, Quebec 

Canada J341M3 



The fact the KIM's serial TTY port, plain and unmodified, will 
operate comfortable at 9600 bauds does not seem to be widely 
known. I, for one, went the parallel interface route as soon as I 
acquired a higher speed terminal, and I suspect that many others 
may have done likewise. After all, what can one expect of an 
interface described in the User's Manual in these terms: "You are 
not restricted to units with specific bit rates (10 CPS for TTY) since 
the KIM-1 system automatically adjusts for a wide variety of data 
rates (10 CPS. 15 CPS. 30CPS. ETC.(. "That's pretty wide, alright, 
from 10 to etc. Other writers have been equally vague. Gary 
Tater in MICRO 9:14, "A Fast Talking TIM" mentions that "KIM 
can adapt to terminal frequencies up to 2400 baud...". This was the 
last straw, and I either had to pull the plug on my "Fast Talking 
KIM", or attempt to put the record straight 
First off, let me say that according to my interpretation of what 
goes on in KIM, the theoretical maximum baud rate of the TTY 
port is 15,625. How's that for pinning down the etc? Not that you 
should try to operate at this rate without some of the well-known 
"fine tuning", but there is no reason why you can't hook up your 
9600 or 4800 baud terminal, with 30 cents worth of gates, and be 
up and running, with or without reading the following detail;. If 
you want to know from whence this bonanza, here is the story. 

The smarts for the KIM TTY interface are in the monitor software, 
so let's start at that end. There are two main TTY I/O routines: 
CETCH at 1E5A and OUTCH at 1EA0. CETCH returns with the 
character in A but strips off the parity bit in the process. If you 
need bit 7 (counting from 0) for your own deep, dark reasons, then 
retrieve the full character from CHAR at OOFE on your return. 
OUTCH (love that label!) outputs a stop bit, then a start bit, then 8 
data bits (LSB first), then another stop bit It may seem illogical to 
start with a stop, but remember that, aside from slow machinery, 



the main purpose of a stop bit (line high) is to make sure that the 
start bit (line low) will be recognized. In any case, the stop 
interval is 2 bits long plus the delay between calls to OUTCH. 

Both CETCH and OUTCH are timed by subroutine DELAY at 
IED4. (CETCH also used DEHALF to move its strobe to the 
mid-point of a bit interval, but let's not get technical.) DELAY does 
its thing based on the contents of a 16-bit counter named, for some 
obscure reason, CNTH30 (high byte, at 17F3) and CNTL30 
(low byte, 17F2). If this counter is equal to 0000 or less, DELAY 
falls through all the way, with a resulting minimum bit time of 
64us. (Let's assume your crystal is bang-on 1 MHz.) Presto: devide 
64us into a million, and you come up with 15,625 baud. 

Not convinced? OK, here's more. Every time we add one to the 

counter, DELAY adds another 14 us to its timing loop. The high 
end of the baud scale looks like this: 



_ounter 


Bit Time (us) 


Baud Ra 


0000 


64 


15,625 


0001 


78 


12,820 


0002 


92 


10,869 


0003 


106 


9,434 


0004 


120 


8,333 



If we turn this around and start with some of the usual standard 
baud rates, we can calculate the bit times and counter values 
required. For instance, 9600 bauds obviously needs something 
betweem 2 and 3. DELAY doesn't do fractions - it doesn't even like 
odd numbers. And how does the counter get properly loaded 
anyway'? 
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We've left the best to the last, a little jewel called DETCPS at 1C2A. 
DETCPS is entered following a system reset with TTY enabled. Its 
brief hour of glory is in measuring the duration of the start pulse of 
the first character you feed in after a Reset. It quickly stuffs the 
results in the 16-bit counter, then goes out for coffee until the next 
Reset. The question is: will DETCPS buy 9600 bauds? The answer is 
YES. albeit a little reluctantly. The thing is the DETCPS is sampling 
the input port, waiting for the line to go low - it checks for this 
every 9 us, so it could miss your start pulse start by this much. 
Once the line is low, it squirrels away 14 us counts, checking for 
line high every 14 us. So it could miss the end of your start pulse 
by 14 us. 

At 10, 15, 30 or etc CPS, this sloppiness is probably acceptable. 
With a Model 33 on the line, DETCPS gaily reports 02C2 
plus/minus OB, for instance. But if it comes up with 0004 instead 
of 0003 at 9600 bauds, your TV screen will give you a reasonable 
facsimile of a Chinese fortune cookie slip. Just look at it as 
another Butterf ield game - Reset-Delete-Reset-Delete-Reset-Delete 
BINCO! Anyway, how many times a day do you Reset? Once you 
get that 3, your link with KIM will be rock solid. 

There are a number of facinating details, but I will spare you 
the pyrotechnics. If all this is on the leve, I should be able to prove 
it, right? Well, I have an ESAT-100 (RHS Marketing) video board 
equipped with an AY3-1015 UART hooked up to the KIM TTY port. 
The manual admits to a -1% to DETCPS. I set the speed selector 
switch to each of the 6 rates available, did 10 resets at each and 
recorded the counts. (A clever piece of programming, at that!) 
Except for 9600, all resets were OK the first time around. The 
counts did not vary, except for 300 baud. The results look like this: 



Baud Rate Bit Time (us) Calc. Count Meas'd Count 



9600 
4800 
2400 
1200 
600 
300 



104.2 

208.3 

416.7 

833.3 

1666.7 

3333.3 



0003 
000A 
0019 
0037 
0072 
OOEA 



0003 
000B 
001A 
0038 
0074 
OOEC/0OED 



A few further words of explanation for the fellow who may be hung 
up because he has been spared intimate relations with "real" TTY 
machines. (You experts can go figure out an algorithm or two - try 
infinite recursion on "Every rule has an exception, except this 
one.") 



Referring to the KIM-1 User's Manual, Fig. 3.7, you will see two 
KYBD lines and two PTR lines. The action at the other end of these 
lines is assumed to be as follows: - During idle conditions, the 
keyboard lines are shorted out, generating a continuous high at the 
input to Q7; the printer lines are connected to a "selector magnet" 
(quaint) or a relay which is drawing a nominal 20 mA. -when the 
keyboard is sending characters, the KYBD lines are open-circuited 
for zero bits and shorted for one bits. When KIM sends characters 
on the PTR lines, it opens the circuit for zero bits by floating the 
output of O/C gate U26 (7438), and closes the circuit for one bits 
by pulling U26 to ground. Incidentally, this 7438 can sink up to 48 
mA. 

If you want to simulate this hardware with some other device, you 
need to feed the line labelled "TTY KYBD" with positive logic 
signals (low for ones, open for zeros) from the line labelled "TTY 



PTR". You should note that the keyboard line has a 220-ohm pull 
down resistor on it, and that the printer line has no pull-up. 

You may also notice, if your terminal has a FDX/HDX selector 
switch or jumper, that the FDX no longer works as advertised. This 
is just KIM trying to be helpful, with a wired-in interconnect which 
echos received characters on the output line. If this keeps you 
awake at night, cut the trace between pin 11 and U15 and pin 10 of 
U26, and connect pin 10 of U26 to Vcc. (I haven't tried it, but it 
should work. I'm a sound sleeper.) 

If you need a for-example, I show a diagram of my own interface 
logic, based on a 7406 gate package, which is working quite 
satisfactorily. There are probably 1000 other ways of doing it, each 
one of which can be improved by SuperSilicon. If it works and 
doesn't smoke, have at it. 
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KIMBASE 



Dr. Barry Tepperman 

25 St. Mary St., No. 411 

Toronto, Ontario M4Y 1R2 

Canada 



KIMBASE is an application program written in the 
6502 microprocessor machine language , designed 
to make use of the monitor subroutines and mem- 
ory configuration of the KIM-1 microcomputer, 
for conversion of unsigned integers from one 
base to another. The input integer (designated 
NUMBER is to be no greater than 6 digits in len- 
gth; large 6-digit integers may cause overflow 
in the multiplication subroutines with consequ- 
ent errors in conversion . The base to be con- 
verted from (designated BASED and to be con- 
verted to (BASE2) are each in the range from 02h 
to 10^; the lower limit is set by mathematical 
reality and the upper by the limited enumer- 
ation available from the KIM-1 keypad. 

The program is started by placing NUMBER, lowest 
order byte last, in page zero 4C-4E, BASE1 (exp- 
ressed in hexadecimal) in 4A, and BASE2 (also in 
hexadecimal) in 4B. The program starts at 0200, 
and will light up the KIM-1 LED display with 
either an error message (according to an error 
flag stored in zero page 02, called ERROR), or 
a result display with the input data and a final 
result up to l8 H digits in length (RESULT stored 
in 03-0E) in successive segments in a format 
to be discussed below, or a combination of both 
displays, in an endless loop until the RS key is 
pressed . 

Program Function 

After initialization of data workspace, several 
tests of input data validity are conducted. 
KIMBASE recognizes four error states: 

a) NUMBER will remain same after conversion 
(i.e. NUMBER=00000x where x is less than either 
base). KIMBASE sets ERR0R=01 , RESULT=NUMBER , 
and shows both error and result displays. 

b) Either or both bases are outside the permis- 
sable limits of 02-10 H . KIMBASE resets bases 
under 02 to equal 02 and bases exceeding 10i-(to 
equal 10^, and executes program to display res- 
ult without an error display. 

c) BASE1=BASE2. KIMBASE sets ERR0R=02, 
RESULT=NUMBER, and shows error and result dis- 
plays. 

d) NUMBER enumeration is impermissable , as one 
or more digits =BASE1 (e.g., attempting NUM- 
BER=1C352A with BASE1=05). KIMBASE sets ERR0R= 
03, shows error display, and aborts further exe- 
cution. 

Note that error states "a" and "c" , above, are 
not mutually exclusive, and that KIMBASE sets 
the error flag ERROR and goes to the appropriate 
response routine after only one positive test. 
Errors are displayed as a continuous flashing 
LED readout " Error Y" where Y=ERR0R. 



Following the test routines, if BASE1^10^, KIM- 
BASE converts NUMBER into its hexadecimal equiv- 
alent by successive generation of powers of 
BASE1, multiplication of the appropriate power 
by the individual digits of NUMBER (remapped by 
masking and shifting into array N) , and suc- 
cessive addition of all the hexadecimal prod- 
ucts. This intermediate result is placed in 
array HEXC0N. A successive loop algorithm was 
used for multiplication rather than a shift-and- 
binary-add algorithm for economy of coding . 



HEXCON 



<_ N(Y) * BASE1 (y_1) 
y=1-6 



10 



This calculation is bypassed and NUMBER entered 
directly into HEXCON if BASE1=10 H . 

After the conversion to hexadecimal , if BASE2= 
10 H , KIMBASE sets RESULT=HEXC0N and the result 
display is initiated. If BASE2^10 H , HEXCON is 
converted into BASE2 by the common successive 
division procedure by BASE2 with mapping of rem- 
ainders through an intermediate array into 
RUSULT. 

Results are displayed on the KIM-1 6-digit dis- 
play as successive 1-second displays of NUMBER, 
BA3E1 and BASE2, and RESULT divided into 6-digit 
segments , in the format : 

NNNNNN ( NUMBER 1 -NUMBER 3) 

IlbbOO (II=BASE1; 00=BASE2) 

RRRRRR ( RESULT 1-RESULT3) 

RRRRRR (RESULT4-RESULT6) 

RRRRRR (RESULT7-RRSULT9) 

RRRRRR (RESULTA-RESULTC) 

which loops endlessly. Where ERR0R=01 or 02, 
the error message precedes the result display, 
and loops endlessly in the display. 

All intermediate arrays and products have been 
retained in the zero page data workspace to fac- 
ilitate any debugging or further elaboration of 
the program that other users may find necessary. 

Users of non-KIM 6502-based microcomputers may 
implement KIMBASE easily with appropriate relo- 
cation of program and workspace (if necessary) 
and replacement of the display subroutines 
( SHOWER-TIMER 1 , SH0RES-TIMER2) with appropriate 
machine-dependant output routines (or by BRK in- 
structions with manual interrogation of the ap- 
propriate arrays to determine output) . 



KIMBASE - MAIN PROGRAM LISTING 

*************** this se ction initializes data workspace and constants ********** 



ZEROl 



CLD 

LDX $#48 

LDA $#00 

STA ARRAY, X 

DEX 

BNE ZEROl 

LDA $#0F 

STA MASK1 

LDA $#F0 

STA MASK2 



00 


D8 




select binary mode 


01 


A2 


48 


set workspace byte co 


03 


A9 


00 




05 


95 


01 


zero common workspace 


07 


CA 




decrement counter 


08 


D0 


F9 


if ^0 loop back 


0A 


A9 


0F 




0C 


85 


0F 


set MASK1=0F 


0E 


A9 


F0 




10 


85 


10 


set MASK2=F0 



39 



LDA $#05 

STA PWR 

LDX $#FF 
TXS 

*************** this section tests input data validity ************************* 



12 


A9 


05 




14 


85 


00 


set PWR=05 


16 


A2 


FF 




18 


9A 




set stack pointer=FF 



TST1NR 


LDA 


$#00 




CMP 


NUMBERl 




BNE 


TST1BS 




CMP 


NUMBER2 




BNE 


TST1BS 




LDA 


NUMBER3 




CMP 


BASE2 




BCC 


CORRl 




JMP 


TST1BS 


CORRl 


LDA 


$#01 




STA 


ERROR 




JMP 


CORR3A 


TST1BS 


LDX 


$#02 


TST1B2 


LDA 


BASE,X 




CMP 


$#02 




BCC 


CORR2A 




CMP 


$#11 




BCC 


RESETl 


C0RR2B 


LDA 


$#10 




STA 


BASE,X 




JMP 


RESETl 


CORR2A 


LDA 


$#02 




STA 


BASE,X 


RESETl 


DEX 






BNE 


TST1B2 


TST2BS 


LDA 


BASE2 




CMP 


BASE1 




BEQ 


C0RR3 




JMP 


TST3BS 


CORR3 


LDA 
STA 


$#02 
ERROR 


CORR3A 


LDX 


$#03 




LDY 


$#0C 


C0RR3S 


LDA 


NUMBER, X 




STA 


RESULT, Y 




DEY 






DEX 






BNE 


C0RR3M 




JSR 


SHOWER 


TST3BS 


LDA 


BASE1 




CMP 


$#10 




BCC 


TST2NR 




LDX 


$#03 


HExMAP 


LDA 


NUMBER, X 




STA 


HEXCON,X 




DEX 






BNE 


HEXMAP 




JMP 


HEXl 


TST2NR 


LDA 


BASE1 




STA 


BSTR1 




ASL 


ASL 




ASL 


ASL 




STA 


BSTR2 


TLP2 


LDY 
LDX 


$#02 
$#03 


TLP1 


LDA 


NUMBER, X 




AND 


MASK,Y 




CMP 


BSTR,Y 




BCC 


TRESET 




JMP 


C0RR4 


TRESET 


DEX 






BNE 


TLP1 




DEY 






BNE 


TLP2 




JMP 


REMAP 


CORR4 


LDA 


$#03 




STA 


ERROR 




JSR 


SHOWER 



19 
IB 
ID 
IF 
21 
23 
25 
27 
29 
2C 
2E 
30 
33 
35 
37 
39 
3B 
3D 
3F 
41 
43 
46 
48 
4A 
4B 
4D 



7E 
80 
82 
84 
86 
88 

8A 
8C 
8F 
92 
94 
97 
98 
9A 

9B 
9D 
A0 
A2 
A4 



A9 00 

C5 4C 

D0 14 

C5 4D 

D0 10 

A5 4E 

C5 4B 

90 03 

4C 33 

A9 01 

85 02 

4C 5A 

A2 02 

B5 49 

C9 02 

90 0B 

C9 11 

90 0B 

A9 10 

95 49 

4C 4A 

A9 02 

95 49 
CA 

D0 E8 

A5 4B 



TEST - ERROR STATE "a" 
NUMBER1=00? 
no? go to next test 
NUMBER2=00? 
no? go to next test 

NUMBER3< BASE2? 
yes? go to correction routine 
02 go to next test 

set ERROR=01 
02 and jump to CORR3A 

TEST - ERROR STATE "b" 

BASE(X) < 02? 

yes? go to correction routine 

BASE(X)> 11? 

no? bypass correction 

otherwise set BASE (X) =10 
02 and bypass next correction 

set BASE (X) =02 
decrement loop counter 
and go back if ^0 

TEST - ERROR STATE "c" 



4F 


C5 


4A 




BASE2=BASE1 ? 


51 


F0 


03 




yes? go to correction rout 


53 


4C 


6A 


02 


otherwise bypass 


56 


A9 


02 






58 


85 


02 




set ERROR=02 


5A 


A2 


03 






5C 


A0 


0C 






5E 


B5 


4B 




read NUMBER 


60 


99 


02 


00 


into RESULT 


63 


88 






decrement counters 


64 


CA 









65 


D0 


F7 




and loop until complete 


67 
I6A 


20 
A5 


A0 
4A 


00 


display error message 


6C 


C9 


10 




BASE 1=10? 


6E 


90 


0C 




no? go to next test 


70 


A2 


03 






72 


B5 


4B 




yes? read NUMBER 


74 


95 


25 




into HEXCON 


76 


CA 








77 


D0 


F9 




for all 3 bytes 


79 


4C 


IF 


03 


and bypass hex conversion 


7C 


A5 


4A 




TEST - ERROR STATE "d" 



85 11 

0A 0A 

0A 0A 

85 12 

A0 02 

A2 03 

B5 4B 

39 0E 



store BASE1 

and left shift 4 bits 
to store BSTR2=( 10* BASE!) 



isolate each digit NUMBER (X) 
by masking 
D9 10 00 and compare with BSTR 
90 03 if less, reset loop 

4C A0 02 otherwise impermis sable - correct 
CA decrement counter NUMBER 

D0 F0 and repeat for corresponding digits 

88 decrement counter BSTR/MASK 

and repeat for remaining digits 
02 go to REMAP 



D0 EB 

4C A7 

A9 03 

85 02 

20 A0 



set ERROR=03 

and display error message 



*************** this section remaps NUMBER for conversion to hex *************** 



REMAP 


LDX 


$#03 


REMAP1 


LDA 


NUMBER, X 




STA 


NHI,X 




STA 


NLO,X 




DEX 






BNE 


REMAP1 




LDX 


$#03 


MASKS1 


LSR 


NHI,X 




LSR 


NHI,X 




LSR 


NHI,X 




LSR 


NHI,X 




LDA 


NLO,X 




AND 


MASKl 




STA 


NLO,X 




DEX 






BNE 


MASKS1 




LDY 


$#01 




LDX 


$#03 


REMAP2 


LDA 


NLO,X 




STA 


N,Y 




INY 






LDA 


NHI,X 




STA 


N,Y 




INY 






DEX 






BNE 


REMAP2 



A7 


A2 


03 


A9 


B5 


4B 


AB 


95 


12 


AD 


95 


15 


AF 


CA 




B0 


D0 


F7 


B2 


A2 


03 


B4 


56 


12 


B6 


56 


12 


B8 


56 


12 


BA 


56 


12 


BC 


B5 


15 


BE 


25 


0F 


C0 


95 


15 


C2 


CA 




C3 


D0 


EF 


C5 


A0 


01 


C7 


A2 


03 


C9 


B5 


15 


CB 


99 


18 


CE 


C8 




CF 


B5 


12 


Dl 


99 


18 


D4 


C8 




D5 


CA 




D6 


D0 


Fl 



load NUMBER 
into NHI 
and into NLO 

loop until done 

right shift 
NHI 
4 bits 



isolate right digit NLO 



loop until done 



store NLO into N 

alternately 
with NHI 
and in inverse order 



loop until done 



*************** this section converts N into hexadecimal *************************** 

for six places 

generate powers of BASE1 

N(Y)=01? 

if equal, go to RESET3 

if less, go to RESET5 

set MULTP=N(Y) 

put index Y into accumulator 

and push onto stack 
multiply power by N(Y) 
pull accumulator from stack 

and restore to Y 



add new product 
to intermediate product 
and store as intermediate product 

loop until done 
for next place 

if counter=0 bypass 
reduce power to be generated 

PWR=01? 

yes? go to RESET6 

greater? loop back to new conversion 

set MULTC=N(Y) 



set MULTP=BASE1 

PWR=01? 

yes? go to RESET2 

less? go to RESET3 

*************** tnis sect i on produces result from HEXCON when BASE2=10 ************* 

HEX1 

BASE 2= 10? 

no? go to ZER02 



HEXCNV 


LDY 


$#06 


LP1PWR 


JSR 


PWRGEN 




LDA 


N,Y 




CMP 


$#01 




BEQ 


RESET3 




BCC 


RESET5 




STA 


MULTP 


RESET2 


TYA 
PHA 






JSR 


MULT 




PLA 






TAY 




RESET3 


CLC 






LDX 


$#03 


RESET4 


LDA 


MULTC,X 




ADC 


HEXCON, X 




STA 


HEXCON, X 




DEX 






BNE 


RESET4 


RESET5 


DEY 






BEQ 


HEXl 




DEC 


PWR 




LDA 


PWR 




CMP 


$#01 




BEQ 


RESET6 




BCS 


LP1PWR 


RESET6 


LDA 


N,Y 




STA 


MULTC3 




LDA 


$#00 




STA 


MULTC1 




STA 


MULTC2 




LDA 


BASE1 




STA 


MULTP 




LDA 


PWR 




CMP 


$#01 




BEQ 


RESET2 




BCC 


RESET3 



02D8 


A0 


06 


DA 


20 


60 00 


DD 


B9 


18 00 


E0 


C9 


01 


E2 


F0 


0B 


E4 


90 


15 


E6 


85 


IF 


E8 


98 




E9 


48 




EA 


20 


80 00 


ED 


68 




EE 


A8 




EF 


18 




F0 


A2 


03 


F2 


B5 


IF 


F4 


75 


25 


F6 


95 


25 


F8 


CA 




F9 


D0 


F7 


FB 


88 




FC 


F0 


21 


FE 


C6 


00 


0300 


A5 


00 


02 


C9 


01 


04 


F0 


02 


06 


B0 


D2 


08 


B9 


18 00 


0B 


85 


22 


0D 


A9 


00 


0F 


85 


20 


11 


85 


21 


13 


A5 


4A 


15 


85 


IF 


17 


A5 


00 


19 


C9 


01 


IB 


F0 


CB 


ID 


90 


D0 



LDA 


BASE2 


CMP 


$#10 


BCC 


ZER02 


LDY 


$#0C 


LDX 


$#03 



IF 


AS 


4B 


21 


C9 


10 


23 


90 


10 


25 


A0 


0C 


27 


A2 


03 



41 



HEX2 



LDA 


HEXCON,X 


29 


B5 


25 




store HEXCON 


STA 


RESULT, Y 


2B 


99 


02 


00 


into RESULT 


DEY 




2E 


88 








DEX 




2F 


CA 








BNE 


HEX2 


30 


D0 


F7 




loop until d< 


JSR 


SHORES 


32 


20 


90 


03 


and display : 



*************** this section divides HEXCON by BASE2 



2ER02 


STA 


DIVIS 




LDX 


$§03 


LPlDIV 


LDA 


HEXCON, X 




STA 


DIVD,X 




DEX 






BNE 


LPlDIV 




LDY 


$#18 


LP2DIV 


JSR 


DIVIDE 




LDA 


RDR 




STA 


RST0R,Y 




LDX 


$#02 


TST1Q0 


LDA 


QUO,X 




CMP 


$#01 




BCS 


RESET7 




DEX 






BNE 


TST1Q0 




LDA 


QU03 




CMP 


DIVIS 




BCC 


ENDDIV 


RESET7 


LDX 


$#03 


RST7A 


LDA 


QUO,X 




STA 


DIVD,X 




LDA 


$#00 




STA 


QUO,X 




DEX 






BNE 


RST7A 




STA 


RDR 




DEY 






BEQ 


ENDV2 




JMP 


LP2DIV 


ENDDIV 


DEY 






LDA 


QU03 




STA 


RSTOR,Y 



0335 
37 
39 
3B 
3D 
3E 
40 
42 
45 
47 
4A 
4C 
4E 
50 
52 
53 
55 
57 
59 
5B 
5D 
5F 
61 
63 
65 
66 
68 
6A 
6B 
6D 
70 
71 
73 



85 2C 

A2 03 

B5 25 

95 28 
CA 



20 
A5 
99 
A2 
B5 
C9 



F9 

18 

10 01 

30 



2C 



CA 

D0 F7 

A5 2F 

C5 2C 

90 15 

A2 03 

B5 

95 

A9 

95 

CA 

D0 

85 



2C 
28 

00 
2C 

F5 
30 



F0 09 

4C 42 
88 

A5 2F 

99 30 



for crude conversion *********** 

set DIVIS=BASE2 

load HEXCON 
into DIVD 



loop until done 
for 18 places 
execute division 
load RDR 
into RSTOR 



QU0(1 or 2) =01? 
yes? go to RESET7 

loop until done 

QU03=DIVIS? 

less? go to ENDDIV 

load QUO 
into DIVD 

zero QUO 

loop until done 
zero RDR 

decrement place counter 
if =0 go to ENDV2 
otherwise back to divide routine 
decrement place counter 
load QU03 
into next RSTOR slot 



*************** this section maps RSTOR into RESULT for final result **************** 



WDV2 LDY 


$#0C 


LDX 


$#18 


CLC 




IEMAP3 DEX 




LDA 


RSTOR, X 


ASL 


ASL 


ASL 


ASL 


INX 




ADC 


RSTOR, X 


STA 


RESULT, Y 


DEY 




DEX 




DEX 




BNE 


REMAP3 


JSR 


SHORES 


1. PWRGEN 





76 


A0 


0C 


78 


A2 


18 


7A 


18 




7B 


CA 




7C 


B5 


30 


7E 


0A 


0A 


80 


0A 


0A 


82 


E8 




83 


75 


30 


85 


99 


02 


88 


88 




89 


CA 




8A 


CA 




8B 


D0 


EE 


8D 


20 


90 



left shift alternate bytes 
RSTOR 4 bytes 



add to next byte RSTOR 
and store as RESULT 



loop until done 
and display result 



Subroutine to generate a b by successive iterations of multiplication subroutine MULT 
with resetting of counters and intermediate products; allows unsigned binary or 
decimal arithmetic in 6502 instruction set; maximum result memory allocated 18 R bits. 

Requires: subroutines: MULT 0080- 

data arrays: BASE1 004A 
PWR 
PWRS 

MULTP 00 IF 

MULTC 0020-0022 



Inapplicable to PWR=00,01; calling program must test and bypass. 



PWRGEN 


LDA 


PWR 


0060 


A5 


00 




STA 


PWRS 


62 


85 


01 




DEC 


PWRS 


64 


C6 


01 




LDA 


BASE1 


66 


A5 


4A 




STA 


MULTP 


68 


85 


IF 




STA 


MULTC3 


6A 


85 


22 




LDA 


$#00 


6C 


A9 


00 




STA 


MULTC1 


6E 


85 


20 




STA 


MULTC2 


70 


85 


21 




TYA 




72 


98 






PHA 




73 


48 




MULTCL 


JSR 


MULT 


74 


20 


80 




DEC 


PWRS 


77 


C6 


01 




BNE 


MULTCL 


79 


D0 


F9 




PLA 




7B 


68 






TAY 




7C 


A8 






RTS 




7D 


60 




2. MULT 













load power 
store in counter 
decrement counter 

set multiplier=base 
set multiplicand=base 

zero 2 high-order bytes 

of multiplicand 
transfer index Y to accumulator 

and onto stack 
jump to MULT 
decrement counter 
if ^0 return to MULTCL 
pull accumulator from stack 

and restore to index Y 
return to main program 



Subroutine multiplies 24-bit number (MULTC) by 8-bit number (MULTP) to 
yield 24-bit final product (MULTC)' by successive iterations of nested 
addition loops. Intermediate product storage in MIDPRO . Allows unsigned 
decimal or binary operation in 6502 instruction set. 



Requires : data arrays : MULTP 001F 

MULTC 0020-0022 

MIDPRO 0023-0025 



Inapplicable to MULTP less than 02; calling program to test and bypass 



MULT 


LDY 
DEY 


MULTP 




LDX 


$#03 


REDIST 


LDA 


MULTC, X 




STA 


MIDPRO ,X 




DEX 






BNE 


REDIST 


ADLP2 


LDX 
CLC 


$#03 


ADLP1 


LDA 


MULTC ,X 




ADC 


MIDPRO ,X 




STA 


MULTC ,X 




DEX 






BNE 


ADLPl 




DEY 






BNE 


ADLP2 




RTS 




3. DIVIDE 







80 


A4 


IF 


82 


88 




83 


A2 


03 


85 


B5 


IF 


87 


95 


22 


89 


CA 




8A 


D0 


F9 


8C 


A2 


03 


8E 


18 




8F 


B5 


IF 


91 


75 


22 


93 


95 


IF 


95 


CA 




96 


D0 


F7 


98 


88 




99 


D0 


Fl 


9B 


60 





loop counter=multiplier 
decrement loop counter 
set byte counter in loop 
set intermediate register 

=mul tiplier 
for each byte in array 
loop until X=0 
set byte counter in loop 
clear carry 
add multiplicand 

to intermediate product 
store as new multiplicand 
for each byte in array 
loop until X=0 
decrement loop counter 
another loop if Y^0 
return to main program 



Subroutine to divide 24-bit dividend (DIVD) by 8-bit divisor (DIVIS) to 
yield 24-bit quotient (QUO) and 8-bit remainder (RDR) by successive shift 
and subtraction processes ,- unsigned binary arithmetic only in 6502 instruction 
set. Intermediate quotient storage in QUO. Requires initialization of RDR 
and array QUO to by calling program, DIVIS?0 . 



Requires 



DIVIDE 
LOOP1 

L00P1A 



da ta 


arrays 


.- DIVD 
DIVIS 


0029- 
002C 


-002B 






QUO 


002D- 


-002F 






RDR 


0030 




LDX 


$#19 




01 10 


A2 19 


ASL 


RDR 




12 


06 30 


ASL 


QU03 




14 


06 2F 


BCS 


HIQUOl 




16 


B0 2 8 


ASL 


QU02 




18 


06 2E 


BCS 


HIQU02 




1A 


B0 2F 



ASL QUOl 



1C 



06 2D 



load shift counter 
left shift remainder 
left shift quotient LSB 
go to incrementing routine 

if carry set 
left shift quotient mid-byte 
go to incrementing routine 

if carry set 
left shift quotient MSB 



L00P2 


CLC 






ASL 


DIVD3 




3CS 


HI0RD1 




ASL 


DIVD2 




BCS 


HI0RD2 




ASL 


DIVD1 


LOOP3 


BCS 


INCR 


LOOP4 


DEX 






BEQ 


FINIS 




SEC 






LB A 


RDR 




SBC 


DIVIS 




BMI 


L00P1 




STA 


RDR 




ASL 


RDR 




ASL 


QU03 




INC 


QU03 




JMP 


LOOP1A 


HIQU01 


ASL 


QV02 




INC 


QU02 




BCS 


HIQU02 




ASL 


QUOl 




JMP 


LOOP2 


HIQU02 


ASL 


QUOl 




INC 


QUOl 




JMP 


L00P2 


HIORD1 


ASL 


DIVD2 




INC 


DIVD2 




BCS 


HI0RD2 




ASL 


DIVDl 




JMP 


L00P3 


HIORD2 


ASL 


DIVDl 




INC 


DIVDl 




JMP 


LOOP3 


INCR 


INC 


RDR 




JMP 


L00P4 


FINIS 


LSR 
RTS 


RDR 



IE 


18 




IF 


06 


2B 


21 


B0 


2F 


23 


06 


2A 


25 


B0 


36 


27 


06 


29 


29 


B0 


39 


2B 


CA 




2C 


F0 


3B 


2E 


38 




2F 


A5 


30 


31 


E5 


2C 


33 


30 


DD 


35 


85 


30 


37 


06 


30 


39 


06 


2F 


3B 


E6 


2F 


3D 


4C 


16 01 


40 


06 


2E 


42 


E6 


2E 


44 


B0 


05 


46 


06 


2D 


48 


4C 


IE 01 


4B 


06 


2D 


4D 


E6 


2D 


41 


4C 


IE 01 


52 


06 


2A 


54 


E6 


2A 


56 


B0 


05 


58 


06 


29 


5A 


4C 


29 01 


15D 


0e 


29 


5F 


EC 


29 


61 


4C 29 01 


64 


Et 


30 


66 


4C 2B 01 


69 


46 30 


6B 


60 



clear carry 

left shift dividend LSB 

go to incrementing routine 

if carry set 
left shift dividend mid-byte 
go to incrementing routine 

if carry set 
left shift dividend MSB 
go to incrementing routine 

if carry set 
decrement shift counter 
jump to end if X=0 
set carry 
from current remainder 

subtract divisor 
back to L00P1 if negative 
store difference as remainder 
left shift remainder 
left shift quotient LSB 
increment quotient LSB 

and go back to LOOPIA 
left shift quotient mid-byte 

and increment it 
go to further incrementing 

routine if carry 
left shift quotient MSB 

and back to LOOP2 (if C=0 ) 
left shift quotient MSB 
increment quotient MSB 

and back to LOOP2 
left shift dividend mid-byte 
increment dividend mid-byte 
go to further incrementing 

routine if carry 
left shift dividend MSB 

and back to LOOP3 (if C=0) 

left shift dividend MSB 

increment dividend MSB 
and back to L00P3 

increment remainder 
and back to LOOP4 

right shift remainder to end 

return to main program 



4. SHOWER S TIMERl 

Subroutines to generate error message for display on the KIM-1 6-digit LED readout 
by successive lighting of appropriate segments of the individual digits using a 
message lookup table. 



'HOWER 


requires : 


subroutines : 


TIMERl 
SHORES 


00DE-00E9 
0390-03CF 






data arrays: 


SADD 
SBDD 
SAD 
SBD 


1741, 
1743', 
1740', 
1742', 










ERROR 


0002 








MSGERR 


00D6-00DA 








MSGNUM 


00DB-00DD 


SHOWER 


LDA 


$#7F 


00A0 


A9 7F 




STA 


SADD 


A2 


8D 41 17 




LDA 


$#1E 


A5 


■A9 IE 




STA 


SBDD 


A7 


8D 43 17 


DISP2 


LDY 


$#08 


AA 


A0 08 




LDX 


$#05 


AC 


A2 05 


DISP1 


STY 


SBD 


AE 


8C 42 17 




LDA 


MSGERR,X 


Bl 


B5 D5 




STA 


SAD 


B3 


8D 40 17 




JSR 


TIMERl 


B6 


20 DE 00 




INY 




B9 


C8 





timing loop for display 

result display for ERROR=01 or 02 



monitor storage for readout 



set output directional vector A=7F 

set output directional vector B=1E 
set digit selection counter 
set loop counter 
select digit 
select segments 
to be lit (from lookup table) 
and jump to timing loop 
select next digit 



INY 




BA 


C8 




DEX 




BB 


CA 




BNE 


DISP1 


BC 


D0 


F0 


LDA 


$#12 


BE 


A9 


12 


STA 


SBD 


C0 


8D 


42 


LDX 


ERROR 


C3 


A6 


02 


LDA 


MSGNUM,X 


C5 


B5 


DA 


STA 


SAD 


C7 


8D 


40 


JSR 


TIMER1 


CA 


20 


DE 


LDA 


ERROR 


CD 


A5 


02 


CMP 


$#03 


CF 


C9 


03 


BEQ 


DISP2 


Dl 


F0 


D7 


JMP 


SHORES 


D3 


4C 


90 


lookup tables .- 











decrement loop counter 
if ^0 loop again 

17 for sixth digit 

set index to error flag 
and select segments 
17 to be lit (from lookup table) 

00 and jump to timing loop 

if ERROR=03 
loop same display again 
03 otherwise jump to show result 



00D6 D0 DC D0 D0 F9 MSGERR 

00DB 86 DB CF MSGNVM 



TIMER1 requires: interval timer location 1707 



TIMER 1 



DELAY 1 



LDA 


$#FF 


00DE 


A9 


FF 


STA 


1707 


E0 


8D 


07 


NOP 




E3 


EA 




BIT 


1707 


E4 


2C 


07 


BPL 


DELAY1 


E7 


10 


FA 


RTS 




E9 


60 





17 



17 



set timer for approximately 
200 milliseconds per digit 
do nothing but light segments 
time up? 
no? keep lit 
yes? back to SHOWER for next digit 



5. SHORES & TIMER2 

Subroutines to generate result display on the KIM-1 6-digit LED readout by loading 
appropriate data into array DISP for display by KIM monitor subroutine SCANDS . 



SHORES requires: subroutines: TIMER2 03D0-03E5 

SHOWER 

: data arrays: ERROR 
RESULT 
BASE 

NUMBER 004C-004E 

DISP 00 F9 -00 FA 



timing loop for display 
error display for ERROR=01 or 



monitor storage for readout: 
00F9 INH 

POINTL 
POINTH 



SHORES 


LDY 


$#01 


0390 


A0 


01 






LDX 


$#03 


92 


A2 


03 




L0ADN1 


LDA 


NUMBER, X 


94 


B5 


4B 






STA 


DISP, Y 


96 


99 


F8 


00 




INY 




99 


C8 








DEX 




9A 


CA 








BNE 


L0ADN1 


9B 


D0 


F7 






JSR 


TIMER2 


9D 


20 


D0 


03 




LDA 


BASE1 


A0 


A5 


4A 






STA 


POINTH 


A2 


85 


FB 






LDA 


$#BB 


A4 


A9 


BB 






STA 


POINTL 


A6 


85 


FA 






LDA 


BASE2 


A8 


A5 


4B 






STA 


INH 


AA 


85 


F9 






JSR 


TIMER2 


AC 


20 


D0 


03 




LDX 


$#01 


AF 


A2 


01 




LOADN3 


LDY 


$#93 


Bl 


A0 


03 




L0ADN2 


LDA 


RESULT, X 


B3 


B5 


02 






STA 


DISP, Y 


B5 


99 


F8 


00 




INX 




B8 


E8 








DEY 




B9 


88 








BNE 


L0ADN2 


BA 


D0 


F7 






TXA 




BC 


8A 







set index for DISP 
set index for NUMBER 
put NUMBER into DISP 

increment DISP index 
decrement NUMBER index 
loop until DISP is full 

and jump to timing/display loop 
load BASE1 

into two highest digits 
load BB 

into two middle digits 
load BASE2 

into two lowest digits 
and jump to timing/display loop 
set index for RESULT 
set index for DISP 
put RESULT (3 bytes at a time) 

into DISP 
increment RESULT index 
decrement DISP index 
loop until DISP is full 
put RESULT index into accumulator 



PHA 




BD 


48 




JSR 


TIMER2 


BE 


20 


D0 03 


PLA 




CI 


68 




TAX 




C2 


AA 




CPX 


$#0D 


C3 


E0 


0D 


BCC 


L0ADN3 


C5 


90 


EA 


LDA 


ERROR 


C7 


A5 


02 


CMP 


$#00 


C9 


C9 


00 


BEQ 


SHORES 


CB 


F0 


C3 


JMP 


SHOWER 


CD 


4C 


A0 00 



and push onto stack 
now jump to timing/display loop 
pull accumulator from stack 

and put in RESULT index X 
is X>0C? 

if not, loop back to load DISP 
if yes, does ERROR=00? 

if yes, loop again for whole display 
otherwise show error 



TIMER2 requires: subroutines: SCANDS 



IF IF 



monitor display subroutine 



data arrays: CTLP 0049 

interval timer location 1707 



TIMER2 


LDA 


$#05 


03D0 


A9 


05 






STA 


CTLP 


D2 


85 


49 




DSPN2 


LDA 


$#FF 


03D4 


A9 


FF 






STA 


1707 


D6 


8D 


07 


17 


DSPN1 


JSR 


SCANDS 


D9 


20 


IF 


IF 




BIT 


1707 


DC 


2C 


07 


17 




BPL 


DSPN1 


DF 


10 


F8 






DEC 


CTLP 


El 


C6 


49 






BNE 


DSPN2 


E3 


D0 


EF 






RTS 




E5 


60 







set loop counter 

set timer for maximum run 

and call display subroutine 

time up? 

no? maintain display 

decrement loop counter 

if ^0 , reset timer and maintain display 

otherwise back to SHORES for next entry 
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LIFE FOR THE KIM-1 AND AN XITEX VIDEO BOARD 



Theodore E. Bridge 
54 Williamsburg Drive 
Springfield, MA 01 108 



I have been very interested in the game of LIFE ever since I read 
Martin Gardiner's "Recreational Mathematics" section in the 
Scientific American - Oct. Nov., 1970. Naturally, I was very much 
interested in Dr. Frank Covitz' excellent article that appeared on 
page 5:5 pf the June-July issue of MICRO, 1978. 

Just as soon as I got my XITEX video board working on my KIM-1 
(16 K on a KIMSI mother board), I attempted to put the Covitz 
program on my machine. Because the display feature of the XITEX 
video board is so different from the PET, I thought it was necessary 
to write a completely new program. I think there may be other 
KIM-1 users who would like to try my version of this fascinating 
game. 

John Conway invented the game of LIFE. I like to think of it as a 
simulation of a virus growing on the surface of a POND of DNA. 
Therefore, I call the work area in which births and deaths are 
recorded, the POND. I have a routine SHOALL that will display the 
POND on the screen. I have another routine DISPLY that will add a 
cell to the screen when a new one is born, and will remove one 
that is about to die. The POND is updated after each generation in 
UPDATE. The routine NBRS will record the number of neighbors 
for a given cell in variable NN. In the pond, zero represents a 
nonliving eel; (1) represents a living cell; (-1) represents a cell that 
is about to be born; and (2) represents one that is about to die. 

It would take about a second to sweep the entire POND looking 
for births and deaths, but it takes 1/6 seconds to process a birth or 
a death. The POND is a matrix 16 x 64. In the routine EDGE, the 
POND is edged with zeroes to prevent WRAP-AROUND that 
would destroy symetry in a life form. According to Conway's rules: 

1 A new cell is born in an empty cell having 3 neighbors. 

2 Any living cell having less than two, or more than three 
neighbors will die. 

3 All deaths and births occur at the same time. A new cell will 
not be counted as a neighbor until after all cells have oeen 
processed. 

The POND may be relocated on another page by putting the page 
number at address $2004. Sixty four ($40) bytes must be reserved 
immediately before and after the POND for edging with zeroes. 



The slash (/) above will terminate the data and start the program. 

A generation count is displayed in the upper left corner of the 
screen. The computer will enter a break if there are no births and 
no deaths in any generation. To return to the monitor, you will 
need to insert $1C0O in the IRQ vector. - 17FE 00, and in 17FF 1C. 

If your video board uses different commands for positioning the 
cursor, you will need to change the routine DISPLY. The XITEX 
board uses the following commands. 



Key 

ESC 
i _ 

»V" 
"H" 

'0 



Hex 

Code 

$1B invokes coordiante mode 

$3D invokes absolute addressing 

BINARY ROW NUMBER - from top 

BINARY COLUMN NUMBER - from left 

(add $40 if less than $20) 
$30 will display a zero 
$20 will overwrite a cell with 
a space 



If you have a highspeed video board , you 
might wish to reform the entire display 
after each generation with this patch: 

change Address $204F from EC to E9 
change Address $2271 from 48 to 60 



An article by David J. Buckingham in the Dec 1978 issue of BYTE, 
on page 54 gives a great many life forms that you might like to try 
with this program. 

For practice on inputting data, you might like to try the following 
life forms given by John Gardner in the Oct.-Nov. 1970 issue of the 
SCIENTIFIC AMERICAN. 



START THE PROGRAM AT $2000 

The routine PLANT will put a live cell in the center of the screen, 
and ask for coordinates V , H for other cells, measured from the 
center. V is the line number (t is down and - is up). H is the 
column number ( t is right and - is left). Both V and H must be in 
the range: minus 7 to plus 7. The sign must follow the digit 
entered, but a space may be substituted for the plus sign. The 
following entries will establish a blinker in mid screen. 



0+ 


1+ 


0+ 


2+ 


1+ 






000 




Beehive 

This fellow lives for four generations and becomes stable in a form 
called a beehive. 



ENTER V,H?1-,0t 
ENTER V,H? 1t,0t 
ENTER V,H?/ 
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000 


0+ 


1+ 





0+ 


1- 




1 + 


0+ 



Traffic Light 
After 10 generations, this fellow becomes a blinking traffic light. 



000 


0+ 


1 + 





0+ 


2+ 





1+ 


0+ 




2+ 


1 + 





000 


000 






















00 








00 









00 
00 


00 
00 
























00 












00 









00 



00 













00 


00 









00 








00 






















000 


000 





Glider 

This glider floats up the pond. When he hits the ceiling, he turns 
into a stable block of four living cells. 



Figure 1 
This is SPACEMAN after 18 generations. He will soon bump his 
head on the ceiling just before his feet touch the floor. This will 
throw him out of symmetry. After generation 33, he will begin to 
contract to the form displayed in figure 2. 



0000 


0+ 


1 + 





0+ 


2+ 





0+ 


3+ 




1+ 


4+ 




1+ 


0+ 




2+ 


0+ 




3+ 


1 + 



00 


00 














000 


000 



Figure 2 
This is SPACEMAN after 75 generations. This is his minimum size. 
He will now grow and then later contract again. I have only 
followed his history through 150 generations. 



Spaceship 

This spaceship travels across the pond colliding with the left edge 
after 10 generations. He then shoots a glider down. 







000 





2- 


2- 


2- 


2+ 


1- 


2- 


1- 


2+ 


0+ 


1- 


0+ 


1 + 


1 + 


2- 


1 + 


2+ 


2+ 


2- 


2+ 


2+ 


Spaceman 





This life form was first tried by Bob Borg. See figures 1 and 2 for the 
history of this interesting life form. 

If we turn spaceman sideways, he bumps the ceiling after 13 
generations losing partial symmetry. He regains symmetry after 
generation 94. After generation 111, he turns into 2 beehives and 
four blinkers. 




' -Ko 



Johnson lost his microprocessor again 



by: Bertha B. Kogut 



48 



CON V AY'S GAME OF LIFE 

2000. LIFE OFG 12000 

2000 4C 2P 20 JMF START 

2003 00 LATA = $00 

2004 23 = $23 FIRST ADDRESS IN FOND 

ALLOV $40 EYTES EEFOFE AND 
AFTER FOND FOR VFAF- AROUND. 
POND IS IK EYTES LONG. 

SC0 FON 

$51 

S00 LAS 

$56 

$00 UL OFFSET 

$01 UP 

$02 UR 

$40 LEFT 

$42 

$8 LL 

$8 1 DO V.N 

$8 2 LR 

$001C FIRST ADDRESS IN POND 

$001D 

$001 E 

$0020 

$0,022 DATA VI LL BE MOVED HERE 

$G02A POINTS TO LAST AD DR. IN POND 

$0 02C < POINT- FOND =< $40* V + H) 

$002E VERTICAL ORDINATE 

$002F 

$0030 COUNT 

$0031 NUMEER OF NEIGHLORS 

$0032 LIFE FLAG 

$0033 

$0034 

$0 035 

$0036 

$0 38 

$0039 

KIM FOUTINES 



2005 


C0 


2006 


51 


2007 


00 


2008 


56 


2009 


00 


2 00 A 


01 


200B 


02 


20 0C 


40 


20 0D 


42 


200E 


80 


200F 


81 


2010 


8 2 


201 1 




201 1 




20 1 1 




201 1 




201 1 




201 1 




201 1 




201 1 




201 1 




£01 1 




201 1 




20 1 1 




201 1 




201 1 




20 1 1 




20 1 1 




201 1 




201 1 





PONDL 


* 


PON EH 


* 


FON 


* 


LAS 


* 


OFFSET 


* 


LAST 


* 


ADR 


* 


V 


* 


H 


* 


CNT 


* 


NN 


* 


LFLAC 


* 


SAVY 


* 


FOINTL 


* 


FOINTK 


* 


PO I N T 


* 


GL 


* 


GH 


* 



20 1 1 


4C 


3E 


IE 


FFTEYT 


JMP 


$1E3E 


2014 


84 


1*5 




GETCK 


STY 


SAVY 


2016 


20 


5 A 


IE 




JSE 


$1E5A 


2019 


A 4 








LEY 


SAVY 


20 IF: 


60 








FTS 




201G 


A9 


£E 




CF.LF 


LDAIM 


$0E 


20 IE 


2C 




20 




JSF 


OUTCH 


2021 


A9 


0A 






LDAIM 


S0A 


2023 


84 


33 




OUTCH 


c . TY 


SAVY 


2025 


20 


A0 


1 E 




JSF 


$ 1 EA0 


2028 


A4 








LEY 


SAVY 


20 2 A 


60 








RTS 
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EEGIN HERE 



202B 


A0 


00 




202D 


84 


38 




202F 


84 


39 




2031 


20 


53 


20 


2034 


20 


D7 


21 


2037 


20 


2E 


21 


203A 


20 


A 5 


21 


203D 


20 


39 


22 


2040 


A0 


00 




2042 


84 


32 




2044 


20 


1 1 


22 


2047 


20 


AF 


20 


£04 A 


20 


Fl 


21 


204D 


A5 


32 




204F 


E0 


EC 




2051 


00 






2052 


00 






2053 


A 2 


0D 




2055 


ED 


03 


20 


2058 


95 


1C 




205A 


CA 






205E 


ie 


F8 




205D 


18 






205E 


A5 


1C 




2060 


69 


C0 




2062 


85 


2A 




2064 


A 5 


ID 




2066 


69 


es 




2068 


85 


2E 




206A 


A 5 


ID 




206C 


8 5 


IF 




206E 


C6 


IF 




2070 


A 5 


2B 




2072 


8 5 


21 




2074 


E6 


21 




2076 


60 







START 



STAE 



MOVZ 



LDYIM 

STY 

STY 

JSF 

JSP 

JSR 

JSH 

JSR 

LDYIM 

STY 

JSF 

JSR 

JSF. 

LDA 

EN E 

EFK 

ERX 

LDXIM 

LDAAX 

STAZX 

DEX 

EPL 

CLC 

LDA 

ADCIM 

STA 

LEA 

ADCIM 

STA 

LDA 

STA 

DEC 

LDA 

STA 

INC 

FTS 



$00 

GL 

GH 

MOVZ 

CLEAR 

PLANT 

SHOALL 

INCG 

$00 

LFLAG 
EDGE 

FOST 

UPDATE 

LFLAG 

STAR 



$0D 

DATA 

PONDL 

MOVZ 

POM DL 

SC0 

LAST 

PON DH 

$03 

LAST 

PON DH 

PON 

POM 

LAST 

LAS 

LAS 



MOVE DATA TO ZERO PAGE 

SEED IN POND 
OF FOND ON TUEE 
I N CRE. GEN ER. CO UN T 

ZERO LIVING FLAG 

FOND VI TK ZEROES 
EIRTHS & DEATHS 
THF POND 

YES. CHECK NEXT GENERATION 



GET A DATA VORD 
PUT IN PAGE ZERO 

+ 02 

POND - $4 
PON D K A 

R E 

R 

LAST V A 

+ 01 LAST +40 

+ 01 
+ 01 
+ 01 
+ 01 
+ 01 



CALC V & H FROM ADDRESS IN ADR 



2077 
£079 
207E 
207E 
208 
£08 1 
2083 
2085 
2086 
2088 
£08 A 



A6 
AS 
4C 
E6 
38 
E.9 
E0 
CA 
10 
85 
60 



2C 
8 
2E 

40 
F9 

F6 

2F 



CAL CVH 



CAL 



LDX 

LDA 

JMP 

INC 

SEC 

SECIM 

ECS 

DEX 

EPL 

STA 

FTS 



ADR 
ADR 
CAL 
V 

$40 

CAL 

CAL 

H 



+ 01 



-02 



-0! 



F EM AIM DEE IN H 



£08 E 38 



CALC ADR = POINT - POND 
CLCAER SEC 



50 



208C 


A5 


34 


208E 


E5 


1C 


209 


85 


2C 


209 2 


A5 


35 


2094 


E5 


ID 


2096 


85 


2D 


2098 


60 





LDA 


POINTL 


SEC 


PONDL 


STA 


ADR 


LDA 


POINTH 


SBC 


PONDH 


STA 


ADR + 1 


RTS 




= NO. 


. OF NEIGHEORS 



SET NN » NO. OF NEIGHEORS FOR CELL 
AT POINT. 

2099 20 5F 22 NEF.S JSP .MOV 

209 C A2 07 LDXIM $0 7 

£09 E E5 £2 NBR LDAAX OFFSET 

20A0 A8 TAY 

20A1 El 36 LDAIY POINT 

20A3 F0 04 EEC NE NOT A NEIGHBOR 

20A5 30 02 EMI NB CONTINUE 

20A7 E6 31 INC NN 

20A9 CA NB DEX 

20AA 10 F2 EFL NER 

20AC A0 00 LDYIM $00 

£0AE 60 RTS 

POST BIRTHS I DEATHS 

POST JSR MOVE BIRTH = -1 

JSR NERS 

LDA NN ALIVE =+ 1 

CMFIM $02 ULL DIE 

EMI DEATH IF < £ 

CMPIM S0 3 

EEC BIRTH IF = 3 

EFL DEATH IF > 3 

FOSTA JSR INCFT INCREMENT FOINT 

SEC 

LDA POINTH 

SEC PONDH 

CMPIM $04 

EMI POST +03 NOT YET DONE VI TH THIS CELL 

FTS NOV VE ARE DONE VI TH IT 

DEATH LDAIY POINTL 

EEC POSTA 

LLAIM SC£ 

STAIY POINTL 

LDAIM $£0 

JMF BIRTHS 

EIRTh LDAIY POINTL 

EWE POSTA 

LDAIM SFF 

STAIY POINTL 

LDAIM '0 

BIRTHS JSR DISFLY 
INC LFLAG 
JMP FOSTA 



51 



20AF 


20 


CC 


21 


20E2 


£0 


99 


20 


20B5 


AS 


31 




20E7 


C9 


02 




20B9 


30 


13 




20BE 


C9 


03 




20ED 


F0 


1C 




£eBF 


10 


0D 




£0C1 


20 


58 


22 


£0C4 


38 






£0C5 


A5 


35 




2BC7 


E5 


ID 




2 0C9 


C9 


04 




£0CE 


30 


E5 




22 CD 


60 






20CE 


El 


34 




20D0 


F0 


EF 




2PD2 


A9 


£2 




£0E4 


9 1 


O **t 




£0D6 


A9 


£e 




20D8 


4C 


E5 


£0 


20DE 


Bl 


34 




2eDD 


D0 


E£ 




20DF 


A9 


FF 




£0E1 


91 


34 




20E3 


A9 


30 




20E5 


£0 


71 


2£ 


20E8 


E6 


32 




2CEA 


4C 


CI 


20 



20 ED 


18 




20EE 


65 


2F 


20F0 


8 5 


2C 


20F2 


90 


62 


20F4 


E6 


2D 


20F6 


60 





COM VI 



CLC 






ADC 


H 




STA 


ADR 




ECC 


CONVH 


-01 


INC 


ADF 


+ ei 


RTS 







CONVERT H k V TO ECUIV. ADDR. 



20F7 


A 6 


2E 


CONVH 


LDX 


V 


20F9 


A0 


00 




LDYIM 


£00 


2£*FF 


84 


£C 




STY 


ADR 


20FD 


84 


2E 




STY 


ADD +0 


20FF 


CA 




CONV 


EEX 




£100 


30 


EE 




EMI 


CON VI 


2102 


18 






CLC 




£103 


A9 


4E 




LEAIM 


S4? 


2 105 


65 


£C 




ADC 


ADR 


2107 


8 5 


£C 




STA 


ADF 


£109 


90 


F4 




ECC 


CONV 


210E 


E6 


2D 




INC 


ADR +£ 


210D 


HZ 


FF 20 




JMF 


COMV 








ASK FOR V, H 


21 If 


2 a 


IC 20 


ENTFVH 


JSE 


CF.LF 


21 13 


A 2 


0E 




LDXIM 


40E 


£115 


ED 


IF £1 




LEAAX 


ENT 


21 18 


2 P. 


23 20 




JSR 


OUTCK 


£ 1 1 E 


CA 






DEX 




£1 IC 


10 


F7 




FPL 


BJTEVK +£ 


21 IE 


60 






RTS' 




£ 1 1 F 


20 




ENT 


= 


1 


£120 


3F 






= 


* ? 


£121 


£0 






= 


r 


£122 


48 






= 


•H 


2123 


£C 






= 


t 


£124 


56 






= 


'V 


2125 


20 






= 


1 


2126 


52 






= 


•F 


2127 


45 






= 


•E 


2128 


54 






= 


•T 


£1£9 


4E 






= 


•N 


£ 1 2A 


45 






= 


*E 



CLEAR ADR 



PLANT THE SEEL 





A0 


0-e 




LEYI 


M 


$00 


212D 


60 






FTS 






£1£F 


A9 


07 


FLANT 


LDAI 




£07 


2130 


g 5 


2E 




C T £ 




V 


2132 


A9 


IF 




LEAI 


M 


21F 


£134 


8 5 


2F 


EACX 


STA 




i. 1 


2136 


20 


F7 


£0 


J£F. 




CONVH 


£139 


18 






CLC 






213A 


A 5 


2C 




LDA 




AER 



SET FOE MIESCFEEN 



52 



213C 


65 


1C 




ADC 


FONDL 


213E 


85 


34 




£TA 


POINTL 


2140 


A 5 


2D 




LEA 


ADR 


21 42 


65 


ID 




ADC 


PON DH 


2144 


85 


35 




STA 


FOINTK 


2146 


A9 


01 




LDAIM 


i-ei 


2148 


91 


34 




STAIY 


FOINTL 


214A 


£0 


10 21 


EASK 


JSF 


ENTFVH 


214D 


20 


9E 21 




JSF 


GET 


2150 


F0 


F8 




EEC' 


EASK 


2152 


C9 


30 




CMFIM 


'0 


2154 


30 


E5 




EMI 


FLANT 


2156 


29 


07 




AN DI M 


$0 7 


2158 


8 5 


2E 




ETA 


V 


215A 


20 


9B 21 




JSF 


GET 


215D 


F0 


EE 




EEG 


EASK 


215F 


C9 


2D 




CMPIM 


t _ 


£161 


ce 


07 




ENE 


PLAN 


2163 


38 






SEC 




2164 


A9 







LEAIM 


S00 


2166 


E5 


2L 




SEC 


V 


2168 


85 


2E 




STA 


V 


216A 


A9 


£C 


FLAN 


LDAIM 


f 


216C 


20 


r- : *i Of/ 




JSF 


OUTCH 


216F 


IS 






CLC 




2170 


A5 






LEA 


V 


2172 


69 


21 




AECIM 


<t r 7 


2174 


85 


2E 




STA 


V 


£176 


20 


9E £1 




J sr. 


GET 


2179 


F0 


CF 




r: r r 


EASK 


217E 


C9 


30 




CMFIM 


*0 


217D 


30 


AC 




EMI 


FLAJJT 


217F 


29 


07 




ANEIM 


$0 7 


£181 


85 


£F 




STA 


H 


2 1 8 3 


20 


9E 21 




JSF 


GET 


2186 


F? 


C2 




EEf 


EASK 


21S8 


C9 


£E 




CMFIM 


t _ 


2 ISA 


D0 


P7 




BNE 


PL ANTE 


218C 


38 






SEC 




2 18D 


A9 


00 




L DAI M 


SC'0 


21SF 


E5 


2F 




SEC 


H 


£191 


8 5 


£F 




STA 


K 


2193 


A 5 


2F 


FLAMTE 


LEA 


H 


2195 


18 






CLC 




2196 


69 


IF 




ADCI*'! 


S 1 1 


2198 


4C 


34 21 




J MP 


BACK 



+ 01 



-03 



■05 



SEACCFL TO CLMTEP 



219B 


£0 


14 


219E 


C9 


38 


21A0 


3E 


02 


2 1A2 


A9 


00 


£ 1 A4 


6 





GET A COORDINATE 

£0 GET JSF GETCH 

CMFIM '8 

EMI EAE 

LEAIM $00 
EAE FTS 

DISPLAY ALL 5 PONE 
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21A5 20 CC 21 

21A8 A9 0F 

21AA 85 2E 

21 AC A9 3F 

21AE 8 5 2F 

21B0 20 1C 20 

21E3 El 34 

21E5 F0 04 

21E7 A9 30 

21B9 10 02 EFL SHO +02 

2 IBB A9 20 

21ED 20 23 20 

21C0 20 58 22 

21C3 C6 2F 

21C5 10 EC 

21C7 C6 2E 

21C9 10 El 

2 ICE 60 

MOVE POND TO POINT 

2 ICC A5 1C MOVE LDA PONDL 

ST A POINTL 

LDA PONDH 

ST A POINTH 

LDYIM £00 
P.TS 

CLEAF. POND 
21D7 20 CC 21 CLEAR JSR MOVE 



SHOALL 


JSR 


MOVE 




LDAIM 


S0F 




STA 


V 


SHOAL 


LDAIM 


$3F 




STA 


H 




JSR 


CRLF 


SHOA 


LDAIY 


POINTL 




BE© 


SHO 




LDAIM 


•0 




BFL 


SHO 


SHO 


LDAIM 


$20 




JSR 


OUTCH 




JSR 


INCPT 




DEC 


K 




BFL 


SHOA 




DEC 


V 




EPL 


SHOAL 




RTS 





21CE 


8 5 


34 


21D0 


A 5 


ID 


21D2 


85 


35 


21D4 


A0 


00 


2 1 D6 


60 





2 IDA 


A9 


0F 


2 IDC 


85 


30 


2 IDE 


A2 


3F 


21E0 


98 




21E1 


91 


34 


21E3 


20 


58 


21E6 


CA 




21E7 


10 


F8 


21E9 


C6 


30 


21EE 


ie 


Fl 


21 ED 


20 


CC 


21F0 


60 





CLEA 
22 



LDAIM 


£0F 


STA 


CNT 


LDXIM 


£3F 


TYA 




STAIY 


FOINTL 


JSF 


INCFT 


DEX 




EPL 


CLEA 


DEC 


CNT 


EPL 


CLEA 


JSR 


MOVE 


RTS 





-03 



EURY THE DEAD AMD RAISE THE CHILDREN 



-01 
+ 02 



21F1 


20 


CC 21 


UPDATE 


JSR 


MOVE 


2 1 F4 


El 


34 




LDAIY 


POINTL 


21F6 


30 


08 




EMI 


POSTIT 


21F8 


C9 


02 




CMPIM 


£02 


21FA 


30 


08 




EMI 


FOSTIT 


21FC 


A9 


00 




LDAIM 


£00 


2 1 FE 


F0 


02 




EEC 


POSTIT 


2200 


A9 


01 




LDAIM 


$0 1 


2202 


91 


34 


POSTIT 


STAIY 


POINTL 



54 



2204 


20 


58 


22 


JSR 


INCPT 




2207 


A 5 


35 




LDA 


POINTH 




2209 


C5 


21 




CMP 


LAS 


+ 01 


220B 


30 


E7 




EMI 


UPDATE 


+ 03 


220D 


20 


CC 


21 


JSR 


MOVE 




2210 


60 






RTS 







EDGE POND VI TH Z EF.O ES 
TO PREVENT VEAP- AROUND 



221 1 


20 


CC 


2214 


A0 


3F 


2216 


A9 


00 


2218 


91 


IE 


221A 


91 


20 


221C 


88 




22 ID 


10 


F9 


221F 


A0 


00 


2221 


A 5 


34 


2223 


18 




2224 


69 


40 


2226 


85 


34 


2228 


A9 


00 


222A 


65 


35 


222G 


85 


35 


222E 


C5 


21 


2230 


P0 


DE 


2232 


A9 


00 


2234 


91 


34 


2236 


4C 


21 



21 EDGE 



VRA 



JSE 


MOVE 


LDYIM 


$3F 


L DAI M 


$00 


STAIY 


PON 


STAIY 


LAS 


DEY 




BFL 


EDGE +0*/ 


LDYIM 


£00 


LDA 


POINTL 


CLC 




ADCIM 


£40 


STA 


POINTL 


LDAIM 


$00 


ADC 


POINTH 


STA 


POINTH 


CMP 


LAS +01 


ECS 


EDGE -01 


LDAIM 


200 


STAIY 


POINTL 


JMF 


VRA 



22 



INCREMENT AND DISPLAY 
THE GENERATION CO INT 

2239 18 INCG CLC 

223A F8 SED 

223E A9 01 LDAIM $01 

223D 65 38 ADC GL 

223F 8 5 38 STA GL 

2241 A9 00 LDAIM $00 

2243 6 5 39 ADC GH 

2245 85 39 STA GH 

2247 D8 CLD 

2248 A9 04 NCG LDAIM $04 
224A 20 23 20 JSR DUTCH 
224D A5 39 LDA GH 
224F 20 1 1 20 JSR PRTEYT 
2252 AS 38 LDA GL 
2254 20 11 20 JSR PRTEYT 

2257 60 RTS 

2258 E6 34 INCPT INC POINTL 
225A D0 02 ENE INCPT +06 
225C E6 35 INC FOINTH 

22 5E 6 RTS 

225F 38 MOV SEC 

2260 A5 34 LDA POINTL 
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2262 


E9 


41 


2264 


85 


36 


2266 


A5 


35 


2268 


E9 


00 


2 26 A 


85 


37 


226C 


A0 


00 


226E 


84 


31 


2270 


60 





227 1 


48 




2272 


20 


8E 


2275 


84 


2E 


2277 


20 


77 


22 7 A 


A9 


IE 


227 X 


20 


23 


22 7F 


A9 


3D 


228 1 


20 


23 


2284 


A5 


2E 


2286 


09 


40 


2288 


20 


23 


228E 


A5 


2F 


228 D 


C9 


2 ?_■ 


228F 


10 


02 


229 1 


09 


40 


2293 


20 




229 6 


68 




229 7 


£0 


23 


2 29 A 


60 





20 



20 



20 



20 



20 



SBCIM 


$41 




STA 


POINT 




LDA 


POINTH 




SBCIM 


$00 




STA 


POINT 


+ 01 


LDYIM 


$00 




STY 


NN 




RTS 






DISPLAY TH: 


E CHARACTER IN THE ACC 


AT THE -- POINT -- 


ADDPESS ON TUBE 


ISPLY PHA 




SAVE ACC 


JSP 


CL CADP 




STY 


V 




JSR 


CALCVH 


CALC V, H 


LDAIM 


£1E 


PRINT ESCAPE 


JSP. 


OUTCK 


TO MOVE CURSOR 


LDAIM 


• = 


AES ADDRESS 


JSP 


OUTCH 




LDA 


V 




OP AIM 


$40 


ADJSUT V 


JSP 


OUTCH 




LDA 


H 


ADJUST H 


CMPIM 


$20 




EFL 


LISP 




ORAIM 


£40 




ISP JSP 


OUTCH 




PL A 




GET ACC 


JSP 


OUTCH 


PRINT IT 


RTS 







SYMBOL TAELE 







ADR 


e-02C 


EACX 


2134 


BAD 


21A4 


EASK 


2 14A 


EI PTH 


20DE 


FIRTHS 


20E5 


CALCVH 


2077 


CAL 


£08 f 


CL CADP 


208E 


CLEA 


S 1 El 


CLEAR 


21D7 


CNT 


0030 


CONV 


20FF 


CONVH 


20F7 


CON VI 


20ED 


CRL F 


£01C 


DATA 


£003 


DEATH 


20CE 


DISF 


2293 


DI SPLY 


2271 


EDGE 


22 1 1 


ENTFVH 


21 10 


EN T 


2 1 IF 


GETCH 


2614 


GET 


219E 


GH 


039 


GL 


00 38 


H 


ee£F 


IN CO 


2239 


IMCFT 


2258 


LAS^ 


002A 


LAS 


r* r> r* r, 

Y, \U & )L 


LFLAG 


££32 


LIFE 


20E0 


MOVE 


2 1CC 


MOV?. 


20.53 


MOV 


225F 


NE 


2£A9 


NEFS 


2 099 


NBP 


2 09 P 


NCG 


2248 


NinJ 


£031 


OFFSET 


0022 


OUTCH 


o ?> O ^ 


FLAi\ : 


216A 


FLANT 


212E 


PLANTE 


2193 


POINT 


0236 


POINTH 


0035 


POINTL 


0034 


PONDH 


001D 


PON DL 


001C 


PON 


00 IE 


POST 


20AF 


FOSTA 


28CI 


PC ST IT 


2£0£ 


PPT BYT 


SCI 1 


SAVY 


0£33 


SHOA 


C t TV** 


SHOAL 


21AC 


SHOALL 


2 1A5 


SHO 


21EE 


STAR 


203D 


START 


202B 


UPDATE 


21F1 


\; 


002E 


UFA 


2221 
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EKIM OR MAXI-KIM 
Extended Keyboard Input Monitor 

Andrew V.W. Sensicle 

155 Valois Bay Ave. 

Pointe Claire, Montreal 

Quebec, Canada H9R 4B8 



Although KIM-Ts ROM contains useful features like the tape and 
TTY input-output routines, when it comes to inputting data or 
coding via the key pad, KIM's resident monitor leaves much to be 
desired, for example the avoidance of repetitive pushing of the "t" 
between each entry or the ability to look back a few bytes without 
going into address mode. I would like to thank Jim Butterfield for 
his excellent BROWSE and BRANCH PROGRAMS which I put 
together in Page 1 and have used religiously since I got started in 
this game in mid '78. 

However, these have their limitations and I have frequently found 
the need for a little more sophistication, not to mention the space 
they occupy in Page 1. Anyway the thing which irritated me most 
was the need to re-enter a long listing merely in order to open up a 
few spaces for additional instructions. The process of tidying up a 
finished program, entailing closing up unwanted spaces and the 
associated readdressing was also very time consuming. 

I thus decided to try to write an extended monitor which would be 
compact enough to fit in Page 17 and yet provide the functions I 
needed. After much condensing and compressing I ended up with 
a program 6 bytes longer than the "legal" Page 17 RAM, but by 
stealing a little from KIM it fits nicely. KIM doesn't seem to mind. 
As long as you don't use the tape or TTY routines, he leaves you 
alone. 

The NMI vector is loaded with the start address (1780) so that the 
ST key can be used to access the monitor at any open cell address. 
Before pressing ST or after exitting via RS the resident monitor is 
used as a normal in the AD mode. The ST key gives you 6 other 
modes of operation or functions. 



1. STAND BY MODE [ST]: This starts the program which then sits 
looking at the open cell address and its contents, ie. nothing seems 
to happen. However, any HEX key is stored at the open cell address 
which each second key stroke increments the address. 

2. INCREMENT [t): Big deal! This works just like normal. 

3. DECREMENT [PC]: This steps the address points backwards 
exactly the reverse of "t". 

4. OPEN UP MODE [AD]: Each depression of this key causes one 
full page of bytes (FF) to be moved one place up starting at the 
open cell address. 

5. CLOSE UP MODE [DA]: Each depression of this key causes one 
full page of bytes to be moved one place back to overwrite the 
open cell contents. Having made an "open up" or close up move 
of one or more steps you will, of course, have to fix up all affected 
addresses. This is not as onerous as it sounds if you use the sixth 
mode. 

6. BRANCH MODE [GO]: When a branch instruction is en- 
countered while entering a new program or fixing up an old one, 
all you need do is press "GO" followed by the actual destinction 
address (low order only). The monitor will calculate the relative 
address, store it in the open cell and step on to the next cell all in 
the twinkling of an eye. The user is, as usual, responsible for 
ensuring that the branch does not exceed the normal half page 
range. 

I hope that this little program will be as useful to others as it is and 
has been to me. 



ORG $1780 









MODE 


* 


$00FF 










TEMPX 


* 


$00FD 










LAST 


* 


$00F3 










INL 


* 


$00F8 










POINTL 


* 


$00FA 










POINTH 


* 


$00FB 










SCAND 


* 


$1F19 










GETKEY 


* 


$1F6A 










UPDATE 


* 


$1FBB 










INCPT 


* 


$1F63 




1780 


D8 




START 


CLD 






1781 


A2 


01 




LDXIM 


$01 


INITIATE 


1783 


86 


FF 




STX 


MODE 


COUNTER 


1785 


86 


FD 




STX 


TEMPX 





MODE AND 
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1787 
178A 
178D 
178F 
1791 
1793 
1795 
1797 
1799 
179B 
179D 
179F 
17A1 
17A3 
17A5 
17A7 

17A9 
17AB 
17AC 
17AE 
17AF 
17B1 
17B2 
17B4 

17B6 
17B8 
17BA 
17BB 
17BD 
17BE 
17BF 
17C1 

17C3 
17C5 
17C7 
17C9 
17CB 
17CD 

17CF 
17D1 
17D3 
17D6 
17D8 
17DA 
17DC 
17DE 
17E0 
17E2 
17E3 
17E5 
17E7 
17EA 



20 
20 
C5 
F0 
85 
C9 
DO 
C6 
C9 
FO 
C9 
FO 
C9 
FO 
C9 
DO 

AO 
88 
Bl 
C8 
91 
88 
DO 
FO 

AO 
Bl 
88 
91 
C8 
C8 
DO 
FO 

C6 
A5 
C9 
DO 
C6 
10 

C9 
BO 
20 
A5 
91 
C6 
FO 
A4 
DO 
18 
E5 
91 
20 
4C 



19 
6A 
F3 
F6 
F3 
13 
02 
FF 
12 
4A 
14 
22 
11 
11 
10 
26 

FF 

FA 

FA 

F7 
CA 

01 
FA 

FA 



F7 
BD 

FA 
FA 
FF 
B5 
FB 
Bl 

10 
B4 
BB 
F8 
FA 
FD 
A9 
FF 
05 

FA 
FA 
63 
80 



IF 
IF 



GETK 



SKIP 



JSR 

JSR 

CMP 

BEQ 

STA 

CMPIM 

BNE 

DEC 

CMPIM 

BEQ 

CMPIM 

BEQ 

CMPIM 

BEQ 

CMPIM 

BNE 



SCAND 

GETKEY 

LAST 

GETK 

LAST 

$13 

SKIP 

MODE 

$12 

INCPNT 

$14 

DECPNT 

$"11 

CLOSUP 

$10 

INDATA 



LIGHT 
CHECK 



DISPLAY 
KEYS 



NEW KEY 
GO ? 



IN BRANCH MODE 



PUT 
+ ? 

PC ? 

DA ? 

AD ? 



LOAD 255(10) 



OPENUP LDYIM $FF 
OPENX DEY 

LDAIY POINTL LOAD AND STORE 

INY ONE CELL HIGHER 

STAIY POINTL 

DEY 

BNE OPENX NEXT 

BEQ START 

CLOSUP LDYIM $01 

CLOSY LDAIY POINTL LOAD OPEN CELL 

DEY PLUS 1 

STAIY POINTL STORE IN OPEN CELL 

INY THEN UP 

INY UNTIL 

BNE CLOSY 

BEQ START CONE 255 (10) 



DECPNT 



DEC 

LDA 

CMPIM 

BNE 

DEC 

BPL 



POINTL 

POINTL 

$FF 

START 

POINTH 



PAGE 

NO 

YES, 



CHANGE? 



THEN DEC POINTH 



START AS WELL 



INDATA CMPIM $10 



IF 



IF 
17 



INCPNT 



BCS 

JSR 

LDA 

STAIY 

DEC 

BEQ 

LDY 

BNE 

CLC 

SBC 

STAIY 

JSR 

JMP 



GETK 

UPDATE 

INL 

POINTL 

TEMPX 

GETK 

MODE 

INCPNT 

POINTL 
POINTL 
INCPT 
START 



FALSE START ACTUALLY NO KEY 
ROL 4 BITS FROM A TO INL 



ONE MORE KEY 

IN BRANCH MODE? 

NO 

CALC RELATIVE ADDRESS 
STORA IT IN OPEN CELL 
NEW CELL 
RETURN 
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CORRECTED KIM FORMAT LOADER FOR SYM-1 

Nicholas J. Vrtis 

5863Pinet'reeS.E. 

Kentwood, Ml 49508 



My cassette is an old model CE, and it won't quite hack the high 
speed tape format of the SYM-1, so I have probably used the KIM 
format option more than most SYM owners. In the process, I have 
found a bug in the SYM monitor tape load routine. Synertek 
knows about the problem, but didn't have a nice fix when I called, 
so I worked up the attached program. 

The problem with the monitor routines is that they will not load a 
slash (hex 2F) from a KIM format tape. The slash is used to indicate 
that the data is done, and the checksum follows. The monitor 
routines don't check for the slash until after the KIM characters 
have been read and combined. The error you get is a checksum 
error (ER CC). 

Most of the code for this program has been copied from the SYM 
monitor routines, except these work. The basic logic change is that 
when a slash is read as a single KIM byte, it is treated as a non-hex 



character. The non-hex routine checks for the slash instead of after 
every character. If it is a slash, it goes to the checksum check 
routine. 

This routine is not as fancy as the monitor routines, but it sure 
beats re-keying a couple K bytes of program. It has turned out to 
be convenient to have this program available even for loading 
programs without the slash. By changing the branch after the 
compare for the slash to a branch back to LOADT7 it will ignore 
errors. Sometimes this will load a bad tape with only minor errors. 
Other times the program gets out of sync and loads garbage. It is 
worth the try for a tape you have spent a lot of time on. 

One final comment about cassettes. If you have the remote 
control connected, putting a hex CC into location AOOC will turn 
the cassette motor back on. It is easier than yanking the remote 
plug. 



FIXED SYM-1 KIM FORMAT LOADER 



NICHOLAS 3 
MARCH 1979 



VRTIS 



STRIPPED DOWN VERSIONS OF LI COMMAND. 
WILL LOAD A 2F WHICH CAUSES SYM-1 TROUBLE. 
ONLY FOR KIM FORMAT TAPES. 
ID SHOULD BE PUT INTO LOCATION 0000. 



0080 
0080 
0080 
0080 



CHAR * 

MODE * 

BUFADL * 

BUFADH * 



$00FC 
$00FD 
$00FE 
$00FF 



CHAR ASSEMBLY & DISASSEMBLY 
CURRENT CHAR INDIRECT ADDRESS 



SYM-1 REFERENCES 



0080 
0080 
0080 

0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 
0080 



DDRIN 


# 


$A002 


VIAACR 


* 


$A00B 


LATCHL 


* 


$A004 


ACCESS 


* 


$8BA6 


SLASH 


* 


$8D3C 


L0ADTX 


# 


$8D4F 


NHERR 


*■ 


$8D69 


SYNC 


* 


$8D82 


START 


* 


$8DB6 


RDBYTX 


* 


$8E28 


PACKT 


* 


$8E3E 


RDCHT 


* 


$8E61 


CHKT 


* 


$8E78 



SLASH IN SYM MONITOR 
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0000 ORG $0000 

0000 00 ID = $00 RESERVED FOR PROGRAM ID 

0001 20 A6 8B LOADT JSR ACCESS UN-PROTECT SYSTEM RAM 
OOOA AO 00 LDYIM $00 SET KIM MODE 

0006 20 B6 8D GSR START INITIALIZE 

0009 AD 02 AO LDA DDRIN 

OOOC 29 BF ANDIM $BF BIT 6 = INPUT IS PB6 

OOOE 8D 02 AO STA DDRIN 

0011 A9 00 LDAIM $00 

0013 8D OB AO STA VIAACR 

0016 A9 AE LDAIM $AE SET UP CLOCK FOR GETTR (KIM) 

0018 8D 04 AO STA LATCHL STORE GETTR VALUE IN LO LATCH 

001B 20 82 8D LOADTA JSR SYNC GET IN SYNC 

001E 20 61 8E LOADTB JSR RDCHT 

0021 C9 2A CMPIM •* START OF DATA ? 

0023 FO 06 BEQ LOADTC 

0025 C9 16 CMPIM $16 NO - SYNC CHARACTER? 

0027 DO F2 BNE LOADTA IF NOT, RESTART SYNC SEARCH 

0029 FO F3 BEQ LOADTB IF YES, KEEP LOOKINT FOR THE * 

002B A9 00 LOADTC LDAIM $00 CLEAR "NOT IN SYNC BIT" 
002D 85 FD STA MODE 

002F 20 28 8E JSR RDBYTX READ ID BYTE 

CHANGE THE FOLLOWING IF ID LOCATION IS 
NOT HEX 0000 

COMPARE WITH REQUESTED ID 
GO LOAD IF EQUAL 
UNCONDITIONAL - RESTART SEARCH 

GET SAL FROM TAPE 

PUT IN BUF START LOW 
SAME FOR SAH 



THE FOLLOWING JSR RDBYT IS THE ONLY 
INSTRUCTION THAT WOULD HAVE TO CHANGE 
TO RE-LOCATE THIS PROGRAM 

GET A BYTE INPUT 
BRANCH IF NON-HEX 
INCLUDE IN CHECKSUM 
STORE BYTE 

BUMP BUFFER ADDRESS 

BRANCH IF NO CARRY 

ELSE NEED TO UPDATE HIGH ORDER 

UNCONDITIONAL 



0032 


C5 


00 




CMP 


ID 


0034 


FO 


02 




BEQ 


LOADTD 


0036 


DO 


E3 




BNE 


LOADTA 


0038 


20 


28 


8E 


LOADTD JSR 


RDBYTX 


003B 


20 


78 


8E 


JSR 


CHKT 


003E 


85 


FE 




STA 


BUFADL 


0040 


20 


28 


8E 


JSR 


RDBYTX 


0043 


20 


78 


8E 


JSR 


CHKT 


0046 


85 


FF 




STA 


BUFADH 



0048 


20 


67 


00 


LOADTE JSR 


RDBYT 


004B 


BO 


OF 




BCS 


XNHERR 


004D 


20 


78 


8E 


JSR 


CHKT 


0050 


AO 


00 




LDYIM 


$00 


0052 


91 


FE 




STAIY 


BUFADL 


0054 


E6 


FE 




INC 


BUFADL 


0056 


DO 


FO 




BNE 


LOADTE 


0058 


E6 


FF 




INC 


BUFADH 


005A 


DO 


EC 




BNE 


LOADTE 



60 



005C 


CD 


3C 


8D 


XNHERR 


CMP 


005F 


DO 


03 






BNE 


0061 


4C 


4F 


8D 




JMP 


0064 


4C 


69 


8D 


YNHERR 


JMP 


0067 


20 


61 


8E 


RDBYT 


JSR 


006A 


CD 


3C 


8D 




CMP 


006D 


DO 


02 






BNE 


006F 


38 








SEC 


0070 


60 








RTS 


0071 


20 


3E 


8E 


RDBYTA 


JSR 


0074 


90 


01 






BCC 


0076 


60 








RTS 


0077 


AA 






RDBYTB 


TAX 


0078 


20 


61 


8E 




JSR 


007B 


86 


FC 






STX 


007D 


4C 


3E 


8E 




JMP 



SLASH "/" IN SYM MONITOR 

YNHERR WAS IT REALLY AN ERROR 

LOADTX NOW LET HIM HANDLE CHECKSUM 

NHERR LET MONITOR DO THIS ALSO 

RDCHT READ ONE HALF 
SLASH SEE IF A SLASH 
RDBYTA BRANCH IF NOT 

SET CARRY AS NON-HEX 

AND RETURN 

PACKT SEE IF GOOD CHARACTER 
RDBYTB BRANCH AROUND RETURN IF HEX 



SAVE MSD 
RDCHT GET NEXT HALF CHARACTER 
CHAR SAVE IT HERE 
PACKT CHECK FOR HEX & RETURN 



STORAGE SCOPE REVISITED 

Joseph L. Powlette 

Donald C. Jeffery 

Hall of Science 

Moravian College 

Bethlehem, PA 18018 



Marvin Dejong has written an excellent article 
(MICRO, No. 2, pp. 11-15, Dec 77-Jan 78) which 
serves to transform an ordinary oscilloscope in- 
to a storage scope . We have constructed several 
units for use in our laboratory and found them 
to be very useful . However , we would like to 
suggest a simple hardware change which will 
improve the quality of the circuits performance . 
Figure 1 is a photograph of the storage scope 
response to a triangular wave (14Hz and voltage 
offset) using De Jong's circuit. The cause of 
the irregularities seen in this figure was 
traced to the second OP-AMP which is used as a 
comparator. The slew rate of the CA3140 is not 
high enough to adequately accommodate the suc- 
cessive approximation software routine . Figure 
2 shows the collection of data for the same wave 
with the second OP-AMP changed to a 531 high 
slew rate OP-AMP. The 531, which is readily 
available , has the same pin-out ( in the TO-5 
package) as the CA3140 but pin 4 must be con- 
nected to -15 volts rather than ground poten- 
tial . Also , do not use a frequency compensation 
capacitor with the 531 since this will only de- 
crease the slew rate of this OP-AMP in the com- 
parator configuration. The 531 is not a FET in- 
put type and does not have the high input im- 
pedance (1.5 T ) of the CA3140. If such a high 
inmedance is desirable, one can use a CA3140 in 
the following configuration preceding the 531 
non- inverting voltage input. 



One should also note that : 

1. There is a 7 bit version of the 1408 DAC. 
Specify 1408L8 for the 8 bit converter. 

2. +5 volts should be connected to pin 13 of the 
1408 (see MICRO, No. 6, p. 4, Aug-Sept, 1978) 

3. The flow chart for the successive approxi- 
mation routine is not correct . 

DeJong is to be commended for this storage scope 
application. In fact, the performance of the 
program (with the above hardware change) 
approaches that of commercial units. 



Flow Chart for 

Successive Approximation 

Analog to Digital Conversion 



PAD r 80., = 10000000., 
16 2 

PGZZ = 80,, r 10000000„ 
10 2 




YES 



PAD = PAD - PGZZ 



z 



LOGICAL SHIFT RIGHT PGZZ 
(Shifts all bits one bit 
right and zero bit is 
shifted into carry bit.) 



PAD = PAD + PGZZ 



3V 




Correction to Successive Approximation 
Micro, No. 2, P. 13 Dec. 77 - Jan. 78 
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Figure 1 



Figure 2 





14 Hz Sine Wave 
(Voltage Offset) 

De Jong's Circuit 



14 Hz Sine Wave 
(Voltage Offset) 

Modified Circuit 
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BREAKER: AN APPLE II DEBUGGING AID 

Rick Auricchio 

59 Plymouth Ave. 

Maplewood, NJ 07040 



When debugging an Assembly-language program, one 
of the easiest tools the programmer can use is 
the Breakpoint. In its most basic form, the 
Breakpoint consists of a hardware feature which 
stops the CPU upon accessing a certain address; 
a "deluxe" version might even use the Read/Write 
and Sync (instruction fetch) lines to allow 
stopping on a particular instruction, the load- 
ing of a byte, or the storing of a byte in mem- 
ory. Since software is often easier to create 
than hardware (apd cheaper for some of us!), a 
better method might be to implement the Break- 
point with software , making use of the BRK op- 
code of the 6502 CPU. 

A Breakpoint, in practice, is simply a BRK op- 
code inserted over an existing program instruct- 
ion. When the user program's execution hits the 
BRK, a trap to the Monitor (via the IRQ vector 
$FFFE/FFFF) will occur. In the APPLE, the Mon- 
itor saves the user program's status and regis- 
ters, then prints the registers and returns con- 
trol to the keyboard. The difficult part, how- 
ever , comes when we wish to resume execution of 
the program: the BRK must be removed and the 
original instruction replaced, and the registers 
must be restored prior to continuing execut- 
ion. If we merely replace the original opcode, 
however, the BRK will not be there should the 
program run through that address again. 

The answer to this problem is BREAKER: a soft- 
ware routine to manage Breakpoints. What the 
debugger does is quite simple: it manages the 
insertion and removal of breakpoints, and it 
correctly resumes a user program after hitting 
a breakpoint. The original instruction will be 
executed automatically when the program is res- 
umed! 



Is it Magic? 

No, it's not magic, but a way of having the 
computer remember where the breakpoints are! 
If the debugger knows where the breakpoints are , 
then it should also know what the original in- 
struction was. Armed with that information, 
managing the breakpoints is easy. Here's how 
the debugger works : 

During initialization, BREAKER is "hooked-in" to 
the APPLE monitor via the Control-Y user com- 
mand exit, and via the COUT user exit. The con- 
trol-Y exit is used to process debugger com- 
mands, and the COUT exit is used to "steal con- 
trol" from the Monitor when a BRK occurs. 

Breakpoint information is kept in tables: the 
LOCTAB is a table of 2-byte addresses — it con- 
tains the address at which a breakpoint has been 
placed. The ADTAB is a table of 1-byte low- 
order address bytes; it is used to locate a 
Break Table Entry (BTE for short). The BTE is 
12 bytes long (only the first 9 are used, but 12 
is a reasonably round number) and it contains 
the following items: 

* Original user-program instruction 

* JMP back to user-program 

* JMP back for relative branch targets 

When adding a breakpoint, we must build the BTE 
correctly, and place the user-program break add- 



ress into the LOCTAB. There are eight (8) 
breakpoints allowed, so that we have a 16-byte 
LOCTAB, 8-byte ADTAB, and 96 bytes of BTE's. 

As the breakpoint is added, the original inst- 
ruction is copied to the first 3 bytes of the 
BTE, and it is "padded" with NOP instructions 
($EA) in case it is a 1 or 2-byte instruction. 
A BRK opcode ($00) is placed into the user pro- 
gram in place of the original instruction's op- 
code (other instruction bytes are not altered). 
The next 3 bytes of the BTE will contain a JMP 
instruction back to the next user-program inst- 
ruction. 

If the original instruction was a Relative 
Branch, one more thing must be considered: if 
we remove the relative branch to the BTE, how 
will it branch correctly? This problem is sol- 
ved by installing another JMP instruction into 
the BTE for a relative branch — back to the Tar- 
get of the branch, which is computed by adding 
the original PC of the branch, +2, +offset. 
This Absolute address will be placed into the 
JMP at bytes 7-9 of the BTE. The offset which 
was copied from the original instruction will be 
changed to $04 so that it will now branch to 
that second JMP instruction within the BTE; the 
JMP will get us to the intended target of the 
original Relative Branch. 

A call to the routine "INSDS2" in the Monitor 
returns the length and type of an instruction 
for the "add" function. The opcode is supplied 
in the AC, and LENGTH & FORMAT are set approp- 
riately by the routine. 

Removal of a breakpoint involves simply rest- 
oring the original opcode, and clearing the 
LOCTAB to free this breakpoint's BTE. 



Displaying of breakpoints prints the user-prog- 
ram address of a breakpoint , followed by the 
address of the BTE associated with the break- 
point (the BTE address is useful — its importance 
will be described later) . 

When the breakpoint is executed , a BRK occurs 
and the APPLE Monitor gets control . The monitor 
will "beep" and print the user program's regis- 
ters. During printing of the registers, BREAKER 
will take control via the COUT exit. (Remember, 
we get control on every character printed - but 
it's only important when the registers are being 
printed. That's when we're at a breakpoint). 
While it has control, BREAKER will grab the 
user-program's PC and save it (we must subtract 
2 because of the action of the BRK instruction) . 
If no breakpoint exists at this PC (we scan LOC- 
TAB) , then the Mointor is continued. If a 
breakpoint does exist here , then the BTE ad- 
dress is set as the "continue PC" . In other 
words, when we continue the user program after 
the break, we will go to the BTE; the original 
instruction will now be executed , and we will 
branch back to the rest of the user program. 

Using BREAKER 

The first thing to do is to load BREAKER into 
high memory. It must then be initialized via 
entry at the start address. This sets up the 
exits from the Monitor. After a Reset, you must 
re-initialize via "Yd" to set up the COUT exit 
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again. Upon entry at the start address, all 
breakpoints are cleared; after "Yd", they re- 
main in effect . 

To add a breakpoint, type: aaaaYcA . (Yc is 
control-Y) . This will add a breakpoint at 
address 'aaaa' in the user program. A 'beep' 
indicates an error; you already have a break- 
point at that address . To remove a breakpoint , 
type: aaaaYcR. This will remove the breakpoint 
at address 'aaaa' and restore the original op- 
code. A 'beep' means that there was none there 
to start with . 

Run your user-program via the Monitor's "G" com- 
mand . Upon hitting a breakpoint , you will get 
the registers printed, and control will go back 
to the monitor as it does normally. At this 
point, all regular Monitor commands are valid, 
including "YcA", "YcR", and "YcD" for BREAKER. 

To continue execution (after looking at stuff 
maybe modifying some things), type: YcG . This 
instructs BREAKER to resume execution at the BTE 
(to execute the original instruction), then to 
transfer control back to the user program. Do 
not resume via Monitor "G" command — it won't 
work properly, since the monitor knows nothing 
of breakpoints. To display all breakpoints, 
type: YcD. This will give a display of up to 8 
breakpoints, with the address of the associated 
BTE for each one . 



Caveats 

Some care must be taken when using BREAKER to 
debug a program. First, there is the case of 
BREAKER not being initialized when you run the 
user program. This isn't a problem when you 
start, because you'll not be able to use the Yc 
commands. But if you should hit Reset during 
testing, you must re-activate via "Yd", 
otherwise BREAKER won't get control on a break- 
point. If you try a YcG, unpredictable thin; s 
will happen. If you know that you hit a break- 
point while BREAKER was not active, you can 
recover. Simply do a "Yd", and then display 
the breakpoints (YcD). Resume the user-pro- 
gram by issuing a Monitor "G" command to the BTE 
for the breakpoint that was hit (since BREAKER 
wasn't around when you hit the breakpoint, you 
have to manually resume execution at the 
BTE). Now all is back to normal. You can tell 
if BREAKER is active by displaying loc- 
ations $38 and $39. If not active, they will 
contain $F0 FD. 

It's also important to note that any user pro- 
gram which makes use of either the Control-Y or 
COUT exits can't be debugged with BREAKER. Once 
these exits are changed, BREAKER won't get con- 
trol when it's supposed to. 



BREAKER DEBUGGER: Routines to Handle up to 8 
Breakpoints , for use in Debugging of User Code . 

**** APPLE-2 MONITOR EQUATES 



002E 
002F 
3C 
3D 
003E 
003F 
0040 
0041 

0036 
0037 

F88E 
F940 
FDDA 
FDED 
FF65 
FF69 



0000007D 
7D00 
7D00 



4C 36 7F 



7D03 
7D04 
7D0 5 

7D06 



7D07 
7D08 
7D09 
7D0A 

7D0D 



00 
00 
00 
00 



00 

EA 

EA 

4C 00 00 

4C 



FORMAT 


EQU 


X'2E' 


INSTRUCTION FORMAT 


LENGTH 


EQU 


X'2F' 


INSTRUCTION LENGTH 


AiL 


ECU 


X'3e' 


WORK AREA 


A1H 


ECU 


X'3D' 




A2L 


EQU 


X'3E' 




A2H 


EQU 


X'3F' 




A3L 


EQU 


X'40' 




A3H 


EQU 


X'4i' 




CSWL 


EQU 


X'36' 


COUT SWITCH WORD 


CSWH 

* 


EQU 


X'37' 




INSDS2 


EQU 


X'F88E' 


DISASSEMBLER 


PRNTYX 


ECU 


X'F940' 


PRINT Y/X REGS IN HEX 


PRBYTE 


ECU 


X'FDDA' 


PRINT AC IN HEX 


COUT 


ECU 


X'FDED" 


CHAR OUT 


RESET 


ECU 


X'FF65' 


MONITOR RESET 


MON 

* 


EQU 


X'FF69' 


MONITOR ENTRY 



X'7D' 

LOWPAGE**8 
INITX 



* CHANGE 'LOKPAGE' TO LOCATE 

* ELSEWHERE IN MEMORY. IT IS 

* NOW SET FOR A 32K SYSTEM. 

* 

LOWPAGE ECU 
ORG 

INIT JMP 

* 

* 

* 

FW1 
FW2 
PCL 
PCH 
* 

** SKELETON 
* 



DATA AREAS 

DC 

DC 

DC 

DC 



3 PGS BEFORE END MEMORY 
ORG OUT TO MEMORY TOP 
^INITIALIZATION ENTRY 



'FINDPC 1 WORK 
' FINDPC WORK 
'GO' PC LO 
'GO' PC HI 



BYTE 1 
BYTE 2 



BREAK- TABLE ENTRY (ETE) 



SKEL 



DC 

NOP 

NOP 

JMP 

DC 




X'4C 



SKELETON BTE 
NOPS FOR PADDING 

JUMP EACK INLINE 

JUMP OPCODE FOR BRANCHES 
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* — LO ADDRESS OF BTE'S KEPT IN ADTAB — * 



7D0E 
7D0F 
7D10 
7D11 
7D12 
7D13 
7D14 
7D15 



7D16 



26 
32 
3E 
4A 
56 
62 
6E 
7A 



AD TAB 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



BTE0&255 
BTE1&255 
BTE2&255 
ETE3&255 
ETE4&255 
ETE5&255 
BTE6&255 
ETE7&255 



LO ADDRESS 



* 

** 

* 

LOCTAB 



LOCTAB CONTAINS ADDRESS OF USER-PROGRAM INSTRUCTION 
WHERE WE PLACED THE BREAKPOINT IN THE FIRST PLACE. 



DS 



2*8 



** — EREAK-TAELE ENTRIES {BTE'S) 
* 



7D26 










BTE0 


DS 12 


7D32 










BTEl 


DS 12 


7D3E 










BTE2 


DS 12 


7D4A 










ETE3 


DS 12 


7D56 










BTE4 


DS 12 


7D6 2 










ETE5 


DS 12 


7D6E 










BTE6 


DS 12 


7D7A 










ETE7 
* 


DS 12 












* END OF DATA AREAS 












* THE REST IS ROM-AELE. 

* 










****************************** 










* 




NAME: FINDPC 










* 




PURPOSE: CHECK IF PC 










* 




RETURNS: CARRY SET IF 










* 




CARRY CLR IF 










* 




VOLATILE :DESTROYS AC 










****************************** 


7D86 


A2 


0F 




FINDPC 


LDXIM 15 


7D88 


AD 


04 


7D 


FPC00 


LDA FW2 


7D8F 


DD 


16 


7D 






CMPX LOCTAE 


7D8E 


D0 


08 








BNE FPC02 


7D90 


AD 


03 


7D 






LDA FW1 


7D93 


DD 


Id 


7D 






CMPX LOCTAE-1 


7D96 


F0 


06 








EEC FPC04 


7D98 


CA 






FFC0 2 


DEX 


7D99 


CA 










DEX 


7D9A 


10 


EC 








BPL FPC00 


7D9C 


18 










CLC 


7D9D 


60 






* 




RTS 


7D9E 


48 






FPC04 


PHA 


7D9F 


8A 










TXA 


7DA0 


4A 










LSRA 


7DAI 


AA 










TAX 


7DA2 


68 










PLA 


7 DA 3 


38 










SEC 


7DA4 


60 










RTS 



SPACE FOR 16 PCH/L PAIRS 



I2-BYTES RESERVED 



ENOUGH FOR 8 BREAKPOINTS 



*********************************** 

IN FW1/FK2 MATCHES ANY IN LOCTAB 
YES; XBEG=ADTAE INDEX 0-7 
NOT; XPEG-GAFBAGE 

*********************************** 

BYTE-INDEX TO END OF TAELE 

GET FOE COMPARE 

A PCH MATCH? 

=>NO. TRY NEXT 2-PYTE ENTRY 

GET PCL NOW 

A PCL MATCH? 

=>YES! WE HAVE A BREAKPOINT! 

BACK UP ONE 

AND ANOTHER 
=>DO ENTIRE TABLE SCAN 
«>DONE; SCAN FAILED 



HOLD AC 

HALVE VALUE IN XREG 
SINCE IT'S 2-BYTE INDEX 



SET 'SUCCESS' 



7 DA 5 
7 DA 7 



E0 
D0 



FB 
27 



***************************************************************** 

* NAME: EREAK 

* PURPOSE: HANDLE ENTRY AT ERK AND PROCESS BREAKPOINTS 

* NOTE: THIS ROUTINE GETS ENTERED ON *EVERY* 'COUT' 

* CALL — IT KNOWS AEOUT BRK BECAUSE THE MONITOR'S 

* REGISTERS ARE SETUP TO PRINT USER REG CONTENTS. 

* AFTER PROCESSING IS DONE, IT RESTORES THE MONITOR'S 

* REGS AND RETURNS. 
***************************************************************** 

EREAK CPXIM X ' FE ' IS XFEG SET FOR EXAMINE-REGS? 

BNE ERKXX «>NO GET OUT NOW. 
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7 DA 9 


C9 


A0 




BRK02 


CMPIM 


X'A0' 


7DAE 


D0 


23 






BNE 


BRKXX 


7 DAD 


A5 


3C 






LDAZ 


AIL 


7DAF 


38 








SEC 




7DE0 


E9 


02 






SFCIM 


2 


7CB2 


8D 


03 


7D 




STA 


FWl 


7DB5 


A5 


3D 






LDAZ 


A1H 


7DB7 


E9 


00 






SECIK 





7DE9 


8D 


04 


7D 




STA 


FW2 


7DEC 


20 


86 


7D 




JSR 


FINDPC 


7DEF 


90 


0F 






BCC 


ERK04 


7DC1 


ED 


0E 


7D 




LDAX 


ADTAP 


7DC4 


8D 


05 


7D 




STA 


PCL 


7DC7 


A9 


7D 






LDAIM 


LOWPAGE 


7 DC 9 


8D 


06 


7D 


* 


STA 


PCH 


7DCC 


A9 


A0 




ERK04 


LDAIM 


X'A0' 


7DCE 


A2 


FB 






LDXIM 


X'FE' 


7DD0 


4C 


F0 


FD 


BRKXX 


JMP 


X'FDF0* 



IS AC SETUP CORRECTLY TOO? 
»>NOPE. FALSE ALARM! 
GET USER PCL 
AND BACK IT UP 
EY 2 BYTES SINCE 
BRK BUMPED IT! 
GET PCH 
DO THE CARRY 

AND SAVE THAT TOO 
A EREAKER OF OURS HERE? 
*>NOPE. WE WON'T HANDLE IT! 
YES; GET ETE ADDRESS THEN 
AND SET IT AS THE 'GO' 
PC FOR THE 'GO' COMMAND. 
<OUR PAGE FOR ETE'S) 

SET AC EACK FOR MONITOR 

AND XREG TOO 
ONO. RIGHT EACK TO COUT ROUTINE! 



7DD3 


AD 


05 


7D 


7DD6 


85 


3C 




7DD8 


AD 


06 


7D 


7DDE 


85 


3D 




7DDD 


4C 


E9 


FE 



***************************************************************** 
*** PROCESS THE 'CO' COMMAND {RESUME USER EXECUTION) ** 
* COMMAND FORMAT: < * Yc G ) . 

***************************************************************** 

GET RESUME PCL 



CMDGO 



LDA 



PCL 



STAZ 


AIL 


LDA 


PCH 


STAZ 


A1H 


JMP 


X'FEE9' 



AND SETUP FOP MONITOR 
TO SIMULATE AN 'XXXX G' COMMAND 
NORMALLY. 
=>SAIL INTO MONITOR'S 'GO' 



7DE0 
7DE2 

7DE3 
7DE6 
7DE8 
7DEA 
7DEB 
7DEE 



A2 FF 

E8 

BD 00 02 

C9 99 

D0 F8 

E8 

ED 00 02 

C9 C7 



**************************** 

** WE GET CONTROL HERE 

* MONITOR {ON KEYINS) 

* CONTROL WILL PASS T 
**************************** 



KEYIN 
KEYIN00 



LDXIM 

INX 

LDAX 

CKPIM 

ENE 

INX 

LDAX 

CMPIM 



X'FF' 

X'0200' 
X'99" 

KEYIN00 

X'0200' 
X'C7' 



************************************* 

ON THE CONTROL-Y USER EXIT FROM THE 
. ALL COMMANDS ARE SCANNED HERE; 
THE APPROPRIATE ROUTINE. 
************************************* 

CHAR INDEX 

SET NEXT CHARACTER 

GET CHAP FROM KEYIN EUFFER 

CONTROL-Y CHARACTER? 

= >NO. KEEP SCANNING 

BUMP OVER CTL-Y 

GRAB COMMAND CHAPrtCTER 

IS IT 'G' {GO) ? 



A BRANCH-TABLE WOULD BE 
NEATER, BUT IT WOULD 
TAKE UP MORE CODE FOR 
THE FEW OPTIONS WE HAVE. 



7DF0 


F0 


El 






BEQ 


CMDGO 


«=>YES. 




7DF2 


C9 


CI 






CMPIM 


X'Cl' 


IS IT 'A' 


{ADD) ? 


7DF4 


F0 


18 






BEQ 


CMDADD 


«>YES. 




7DF6 


C9 


C4 






CKPIM 


X'C4' 


IS IT 'D' 


{DISPLAY) ? 


7DF8 


F0 


0B 






BEQ 


XXDISP 


=>YES. 




7DFA 


C9 


D2 






CMPIM 


X'D2' 


IS IT 'R' 


{REMOVE) ? 


7DFC 


F0 


0A 






EEQ 


XXPEMOVE 


«>YES. 




7DFE 


C9 


C9 






CMPIM 


X'C9' 


IS IT 'I' 


1 {INIT) ? 


7E00 


F0 


09 






EEQ 


XXINIT 


»>YES. 




7E02 


4C 


65 


FF 


EADCMD 

* 


JMP 


RESET 


NOTHING; 


IGNORE IT! 


7E05 


4C 


A8 


7E 


XXDISP 


JMP 


CMDDISP 


EXTENDED 


BRANCH 


7E08 


4C 


08 


7F 


XXPEMOVE 


JMP 


CMDREMOV 


EXTENDED 


E RANCH 


7E0B 


4C 


4F 


7F 


XXINIT 


JMP 


CMDINIT 


EXTENDED 


BRANCH 
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***************************************************************** 
** PROCESS THE 'ADD' COMMAND.. ADD A BREAKPOINT AT 
LOCATION SPECIFIED IN COMMAND 



** 



COMMAND FORMAT: < * aaaa Yc A } 



***************************************************************** 



7E0E 


A0 


00 




CMDADD LDYIM 





CHECK OPCODE FIRST 


7E10 


El 


3E 






LDAIY 


A2L 


OP AT AAAA A ERK ALREADY? 


7E12 


F0 


EE 




* 


BEQ 


BADCMD 


">YES. ILLEGAL! 










* 

* 


SCAN LOCTAE 


: FOR AN AVAILABLE 


BTE TO USE * 


7E14 


A2 


0F 






LDXIM 


15 


EYTE INDEX TO LOCTAB END 


7E16 


BD 


16 


7D 


ADD00 


LDAX 


LOCTAB 


GET A BYTE 


7E19 


D0 


05 






BNE 


ADD0 2 


->IN USE 


7E1B 


BD 


15 


7D 




LDAX 


LOCTAB-1 


GET HI HALF 


7E1E 


F0 


06 






EEC 


ADD04 


=> BOTH ZERO; USE IT! 


7E20 


CA 






ADD0 2 


DEX 




MOVE EACK TO 


7E21 


CA 








DEX 




NEXT LOCTAB ENTRY 


7E22 


10 


F2 






BPL 


ADD00 


AND KEEP TRYING! 


7E24 


30 


DC 




* 


BMI 


BADCMD 


=>DONE? ALL FULL! REJECT IT. 


7E26 


A5 


3E 




ADD0 4 


LDAZ 


A2L 


GET dddd VALUE 


7E28 


9D 


15 


7D 




STAX 


LOCTAB-1 


SAVE LO HALF 


7E2B 


8D 


0E 


7D 




STA 


SKEL+4 


STUFF LO ADDR INTO ETE 


7E2E 


A5 


3F 






LDAZ 


A2K 


GET aaaa VALUE 


7E30 


9D 


16 


7D 




STAX 


LOCTAB 


SAVE HI HALF 


7E33 


8D 


0C 


7D 




STA 


SKEL+5 


STUFF HI ADDR INTO BTE 


7E36 


8A 








TXA 




GRAE INDEX FOR LOCTAE 


7E37 


4A 








LSRA 




MAKE ADTAB INDEX 


7E38 


AA 








TAX 




AND STUFF BhCK INTO XREF 


7E39 


A9 


7D 






LDAIM 


LOWPAGE 


BTE'S HI ADDRESS VALUE 


7E3E 


85 


41 






STAZ 


A3H 


HOLD IN KORK AREA 


7E3D 


BD 


0E 


7D 




LDAX 


ADTAB 


GET ETE LO ADDR FROM ADTAE 


7E40 


85 


40 






STAZ 


A3L 


SAVE IN WORK AREA 


7E4 2 


A0 


07 






LDYIK 


7 


7-EYTE MOVE FOR SKEL BTE 


7E44 


B9 


07 


7D 


ADD0 6 


LDAY 


SKEL 


GET SKEL PYTE 


7E47 


91 


40 






STAIY 


A3L 


MOVE TO BTE 


7E49 


88 








DEY 




SET NEXT 


7E4A 


10 


F8 






BPL 


ADD06 


=> MOVE ENTIRE SKELETON 


7E4C 


C8 








INY 






7E4D 


Bl 


3E 






LDAIY 


A2L 


GET ORIGINAL OPCODE 


7E4F 


91 


40 






STAIY 


A3L 


INTO ETE 


7E51 


20 


8E 


F8 




JSR 


INSDS2 


INSBS2 {TO DISASSEMBLE) 


7E54 


A9 


00 






LDAIM 





SET ERK OPCODE 


7E56 


91 


3E 






STAIY 


A2L 


OVER ORIGINAL OPCODE 


7E58 


Ad 


2F 






LDAZ 


LENG TH 


GET INSTRUCTION LENGTH 


7E5A 


38 






* 


SEC 














* 

* 


SET UP JMP 


TO NEXT INST. IN THE ETE * 


7E5B 


A0 


04 






LDYIK 


4 




7E5D 


71 


40 






ADCIY 


A3L 


ADD TO PC FOR DESTINATION 


7E5F 


91 


40 






STAIY 


A3L 


STUFF INTO ETE 


7E61 


C8 








INY 






7E6 2 


Bl 


40 






LDAIY 


A3L 


RUN UP THE CARRY 


7E64 


69 


00 






ADCIM 





RIGHT HERE 



7E66 


91 


40 


STAIY 


A3L 


7E68 


A5 


2E 


LDAZ 


FORMAT 


7E6A 


C9 


9D 


CMPIM 


X'9D' 


7E6C 


FO 


16 


BEQ 


ADDBRCH 


7E6E 


A5 


2F 


LDAZ 


LENGTH 


7E70 


FO 


OF 


BEQ 


CMDRET 


7E72 


6A 




RORA 




7E73 


BO 


06 


BCS 


ADDLEN2 


7E75 


AO 


02 


LDYIM 


2 


7E77 


B1 


3E 


LDAIY 


A2L 


7E79 


91 


40 


STAIY 


A3L 


7E7B 


AO 


01 ADDLEN2 LDYIM 


1 


7E7D 


B1 


3E 


LDAIY 


A2L 


7E7F 


91 


40 


STAIY 


A3L 


7E81 


4C 


69 FF CMDRET JMP 


MON 



STUFF ADDRESS INTO JMP 

GET INSTRUCTION FORMAT 

IS FORMAT=BRANCH? 

=>YES. MORE TO DO 

LENGTH=1? 

=>YES. DONE 

LENGTH=2? 

= >YES 

LENGTH=3;MOVE 3RD BYTE TO BTE 

GET INST 3RD BYTE 

AND MOVE TO BTE 
LENGTH=2;M0VE 2ND BYTE TO BTE 
GET INST 2ND BYTE 

AND MOVE TO BTE 
DONE; BACK TO MONITOR! 
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» FOR BRANCHES, WE'VE GOTTA ADD A JMP FOR THE 'TRUE* 

* CONDITION (SINCE WE MOVED THE BRANCH 'WAY OUTA THE PROGRAM!) 



7E34 


AO 01 




ADDBRCH LDYIM 


1 




SET 


FOR 2ND BYTE 


7E86 


B1 3E 




LDAIY 


A2L 




GET 


DESTINATION OFFSET 


7E88 


18 




CLC 






AND 


I ADD 2 BYTES TO 


7E89 


69 02 




ADCIM 


2 




CONSTRUCT ABS ADDRESS 


7E8B 


65 3E 




ADCZ 


A2L 




ADD 


TO SUBJECT-INST ADDRESS 


7E8D 


85 3E 




STAZ 


A2L 








7E8F 


A5 3F 




LDAZ 


A2H 




CARRY IT 


7E91 


69 00 




ADCIM 











7E93 


85 3F 




STAZ 


A2H 








7E95 


EA 




NOP 






(PLACE-HOLDER WASTE HERE) 


7E96 


A9 04 




LDAIM 


4 




TRUE 


l-BRANCH TO +4 


7E98 


91 40 




STAIY 


A3L 




PUT 


INTO NEW OFFSET 


7E9A 


AO 07 




LDYIM 


7 








7E9C 


A5 3E 




LDAZ 


A2L 




GET 


JMP ADDRESS 


7E9E 


91 40 




STAIY 


A3L 




MOVE 


: IT TO 


7EA0 


C8 




INY 






THE 




7EA1 


A5 3F 




LDAZ 


A2H 




BTE FOR 


7EA3 


91 40 




STAIY 


A3L 




THE 'TRUE' JMP 


7EA5 


B8 




CLV 






SNEAKY BRANCH 


7EA6 


50 D9 




BVC 


CMDRET 


TO 


EXIT 


7EEA 


8A 




DISP04 TXA 








GET INDEX 


7EPB 


4 8 




PBA 








SAVE IT 


7EBC 


BC 16 


7D 


LDYX 




LOCTAB 




GET SUBJECT-INST PCH 


7EBF 


BD 15 


7D 


LDAX 




LCCTAB-1 




AND ITS PCL 


7EC2 


84 3B 




STYZ 




X'3B' 




SET UP PCB/PCL FOR 


7EC4 


8 5 3A 




STAZ 




X'3A' 




DISASSEMBLER. . . 


7EC6 


AA 




TAX 










7EC7 


20 40 


F9 


JSR 




PRNTYX 




PRINT Y,X BYTES IN HEX 


7ECA 


A9 A0 




LDAIM 




X'A0' 




PRINT ONE 


7ECC 


20 ED 


FD 


JSR 




COUT 




SPACE HERE 


7ECF 


68 




PLA 








RESTORE INDEX 


7ED0 


48 




PHA 










7ED1 


4A 




LSRA 








CONVERT TO ADTAB INEX 


7ED2 


AA 




TAX 










7 ED 3 


A9 BC 




LDAIM 




X'EC 




' < ' CHARACTER 


7 ED 5 


2 ED 


FD 


JSR 




COUT 




PRINT IT 


7ED8 


A9 7D 




LDAIM 




LOWPAGE 




BTE HI ADDRESS 


7 EDA 


8 5 3F 




STAZ 




A2H 




SET INDIRECT POINTER 


7EDC 


20 DA 


FD 


JSR 




PRBYTE 




PRINT HEX BYTE 


7EDF 


BD 0E 


7D 


LDAX 




AD TAB 




GET ETE LO ADDR 


7EE2 


85 3E 




STAZ 




A2L 




SET INDIRECT POINTER 


7EE4 


2 DA 


FD 


JSR 




PRBYTE 




PRINT BTE FULL ADDRESS 


7EE7 


A9 BE 




LDAIM 




X'BE' 




1 > ' CHARACTER 


7EE9 


20 ED 


FD 


JSR 




COUT 




PRINT IT 



* DISASSEMBLE THE ORIGINAL INSTRUCTION. PICK UP 

* ORIGINAL OPCODE FROM ETE, ORIGINAL ADDRESS 

* FIELD FROM USER PROGRAM LOCATION. 



7EEC 


A9 A0 




7EEE 


20 ED 


FD 


7EF1 


A0 00 




7EF3 


Bl 3E 




7EF5 


20 DA 


FD 


7EF8 


Bl 3E 




7EFA 


20 8E 


F8 


7EFD 


20 04 


7F 


7F00 
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7F01 


AA 




7F0 2 


10 B0 





LDAIM 


X'A0' 


JSR 


COUT 


LDYIM 





LDAIY 


A2L 


JSR 


PRBYTE 


LDAIY 


A2L 


JSR 


INSDS2 


JSR 


JSRKLUGE 


PLA 




TAX 




BPL 


DISPNXT 



PRINT ONE 

SPACE HERE 
INDEX 

GET OPCODE FROM BTE 
PRINT OPCODE 
GET OPCODE FROM BTE 

AND GET FORMAT/LENGTH 
SNEAK INTO INSDSP @ F8D9 

RESTORE LOCTAB INDEX 
*> DISPLAY THE REST! 
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7F04 
7F05 



48 

4C D9 F8 



* KLUGE ENTRY INTO SUBROUTINE 

* WHICH FORCES JSR PRIOR TO 

* A PHA INSTRUCTION. WE HAVE 

* TO JSR TO THIS JMP! 
* 

JSRKLUGE PHA 

JMP X'F8D9' 
******** END OF KLUGE! ***** 



PUSH MNEMONIC INDEX 
CONTINUE KITH INSTDSP 











*************************** 










* 


REMOVE A 


EREAKPOIN 










* 


COMMAND 


FORMAT: { 










*************************** 


7F08 


A5 


3E 




CMDREMOV 


LDAZ 


A2L 


7F0A 


8D 


03 


7D 




STA 


FW1 


7F0D 


A5 


3F 






LDAZ 


A2B 


7F0F 


8D 


04 


7D 




STA 


FW2 


7F12 


20 


86 


7D 




JSR 


FINDPC 


7F15 


B0 


03 






ECS 


REMOV02 


7F17 


4C 


65 


FF 


* 


JMP 


RESET 


7FIA 


ED 


0E 


7D 


REMOV02 


LDAX 


AD TAB 


7 FID 


85 


40 






STAZ 


A3L 


7F1F 


8A 








TXA 




7F20 


0A 








ASLA 




7F21 


AA 








TAX 




7F22 


A9 


00 






LDAIM 





7F24 


A8 








TAY 




7F25 


9D 


16 


7D 




STAX 


LOCTAE 


7F28 


9D 


17 


7D 




STAX 


LOCTAE+1 


7F2E 


A9 


7D 






LDAIM 


LOWPAGE 


7F2D 


85 


41 






STAZ 


A3H 


7F2F 


El 


40 






LDAIY 


A3L 


7F31 


91 


3E 






STAIY 


A2L 


7F33 


4C 


69 


FF 




JMP 


HON 



************************************** 

T AT LOCATION addd 

aaaa Yc R } 
************************************** 

GET ADDRESS LC 
HOLD IT FOR FINDPC 
GET ADDRESS HI 

A BREAKPOINT HERE? 

= >YES 

«>NO; EELL FOR YOU! 

GET THE LOCTAE ENTRY 

HOLD IT 

NOW CREATE LOCTAE INDEX 



CLEAR OUT THE 
APPROPRIATE 
LOCTAE ENTRY 
FOR THIS EKPT 
HI ADDR FOR ETE 
HOLD FOR ADDRESSING 
GET OPCODE OUT OF ETE 

AND PUT BriCK INTO ORIGINAI 
=>ALL DONE. 



7F36 
7F38 
7F3B 
7F3D 
7F40 
7F42 
7F45 
7F4 7 
7F49 
7F4C 
7F4D 



7F4F 
7F51 
7F53 
7F55 
7F57 



A9 4C 
8D F8 03 
A9 7D 
8D FA 03 
A9 E0 
8D F9 03 
A9 
A2 0F 
9D 16 
CA 
10 FA 



7D 



A9 A 5 
85 36 
A9 7D 
8 5 37 
4C 69 FF 



****** 

* 

* 

* 

* 

****** 

INITX 



*********************************************************** 

INITIALIZATION CODE. ENTERED AT STAPT ADDR TO INITIALIZE, 
IT CLEARS LOCTAB, SETS UP THE Yc AND 'COUT' EXITS. 

AFTER EVERY 'RESET', MUST RESETUP WITH * Yc I . 
*********************************************************** 



INIT0 



* 

* 

* 

CMDINI'] 



LDAIM 

STA 

LDAIM 

STA 

LDAIM 

STA 

LDAIM 

LDXIM 

STAX 

DEX 

EFL 



X'4C 

X'3F8' 

KEYIN/256 

X'3FA' 

KEYIN&X'FF' 

X'3F9' 



15 
LOCTAB 

INI 10 



JMP OPCODE 


STUFF 


IN Yc EXIT LOC 


KEYIN: 


: HI ADDRESS 


STUFF 


INTO JMP 


KEYIN: 


r LO ADDRESS 


STUFF 


INTO JMP aDDRESS 


INDEX 


TO LOCTAB END 


CLEAR 


IT OUT 



SO THERE ARE 
NO BREAKPOINTS 



ENTER HERE AFTER HITTING 'RESET' KEY, PLEASE 



LDAIM 

STAZ 

LDAIM 

STAZ 

JMP 

END 



BREAK&255 

CSWL 

EREAK/256 

CSWH 

MCN 



EREAK: LO ADDRESS 
STUFF INTO 'COUT' 
BREAK: HI ADDRESS 
STUFF INTO 'COUT' 



EXIT HOOK 



EXIT HOOK 



INIT DONE; BACK TO MOM. 
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TWO APPLE II ASSEMBLERS: 
A COMPARATIVE SOFTWARE REVIEW 

Allen Watson 

430 Lakeview Way 

Redwood City, CA 94062 



There are two assembler programs for the Apple II available from 
independent software vendors: the Microproducts Apple II 
Co-resident Assembler for $19.95 from Microproducts, 1024 17th 
Street, Hermosa Beach, CA 90254, and the S-C Assembler II for $25 
from S-C Software, P.O. Box 5537, Richardson, TX 75080. The 
features and relative merits of these assemblers are the subject of 
this review. 

Introduction: Software Tools 

Some microcomputer owners hardly ever program, being satisfied 
to run programs written by other people. Others program only in 
BASIC or one of the compiler languages. Then there are those who 
write programs in machine language because the demands they 
make of their computers can be met in no other way. The 
assembler is a software tool which relieves them of much of the 
drudge-work involved in machine-language programming. 

Software tools such as assemblers are much more important than 
their modest sizes might imply, since they are used over and over 
in the development of other programs. A poor tool is tiring to use 
and causes errors and frustration; a good tool requires minimum 
effort and soon seems like a natural extension of the user. 

Built-in Assembler Features 

The mini-assembler built into the Apple II sets it apart from 
conventional microcomputers. It will probably lead many Apple II 
owners to venture into machine-language programming for the 
first time. 

The mini-assembler's primary function is instruction-code 
translation. Instead of remembering all the 6502 numeric opcodes, 
the programmer finds himself thinking in the 6502 mnemonics. 
The word mnemonic just means easy to remember; while letter 
combinations such as CMP and LDA may seem cryptic at first, it 
soon becomes second-nature to read CMP as compare and LDA as 
load accumulator. 

The branch instructions in the 6502 use relative addresses. The 
address that is being branched to has to be converted into a 
one-byte offset value. Doing this by hand is so tedious and prone 
to error that there is even a small slide rule on the market to do the 
hexadecimal arithmetic. The Apple's mini-assembler and its 
companion disassembler take care of this automatically, so that 
the programmer can use the actual address values when he writes 
branch instructions. 

The different addressing modes of the 6502 are handled very 
simply. Indexing is indicated by a comma and X or Y after the base 
address. Parentheses are used to delimit the address of the address 
in indirect-addressing mode, and indirect-indexed and 
indexed-indirect addressing are easily distinguished by this means. 

The Apple's built-in assembler is very convenient, but the 



machine could do more for him. Obviously, given the right 
program, it can. Enter the full-fledged assemblers, stage right. 

More Assembler Features 

Both of the assemblers described here have all the features of the 
Apple mini-assembler and several more besides. The two most 
important additional features are program editing and symbolic 
addressing. An editor is often a separate program, but since much 
of the value of an assembler would be lost without the ability to 
edit, both of these assemblers include editors and should properly 
be called editor-assemblers. 

Once you face the necessity of re-entering most of a long program 
by hand in order to make room for additional instructions near the 
beginning of the program the need for an editor will be apparent. 
Some machines have editors that work directly on the machine 
code, but the editor portions of both of these assemblers 
manipulate the assembler input data or source file. They enable 
the programmer to add or delete instructions anywhere in the 
program without worrying about the consequences. (Well, almost; 
if the added instructions between a branch instruction and its 
destination increase the displacement to more than 128 bytes, the 
branch is no longer valid and must be replaced by a different 
branch and a jump.) 

Symbolic addressing is one of the most important functions of an 
assembler. The older higher-level language BASIC and FORTRAN 
have symbolic addressing only for variables. The lack of symbolic 
addressing of instructions makes programs difficult to read. 

Address references in assembler language are made by means of 
symbols which are assigned their numeric values when the 
program is assembled. The programmer needn't be concerned 
about the actual addresses except to make sure there is room for 
all of them. But symbolic addressing does more than just eliminate 
a lot of messy bookkeeping: since the symbols are entirely 
arbitrary, the programmer can choose them such that they serve as 
mnemonic labels for all of the important addresses in the program. 
For example, where a BASIC programmer would have to write 
something like GOTO 1275, an assembler-language programmer 
may write JMP DONE, where DONE is both a symbol which 
represents the required address and a label which is meaningful to 
the programmer. 

The Microproducts Co-resident Assembler and the S-C Assembler 
II both qualify as full-fledge assemblers. They have several features 
in addition to those described above, including: 

(1) loading and saving the assembler input file on tape; 

(2) programmer specification of the starting address in memory 
of the assembled program; 

(3) inclusion of ASCII character strings and hexadecimal 
numbers as part of the program; and 

(4) the inclusion of comments, explanatory notes which are part 
of the input file but are ignored by the assembler. 
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What About Documentation? 

A user's manual is provided with each of these assemblers. The 
Microproducts manual consists of seven pages and is barely 
adequate. It is poorly organized and there are a couple of errors in 
it. The manual for the S-C assembler is more substantial, with 17 
pages of instructions giving complete information for the 
programmer. There are also 10 pages of appendices including a list 
of references and a listing of a printer-driver program. It is clear 
and candid, even pointing out a couple of weak places in the 
program. 

Now For The Bad News 

There are limits to how easy things can be made for the 
machine-language programmer. For one thing, both assemblers 
limit the length of symbols to not more than four characters, and 
special characters are not permitted: only letters and numbers. 
Another joy-killer is the strict formatting of the input statements. 
Labels must be in their specified columns, opcodes in theirs, and 
so on. If there is no label on a particular line, you must skip across 
to the correct column before typing in the operation mnemonic. 

The S-C assembler ameliorates this problem by providing a 
tabulation feature, to skip a field, you just type in a TAB. Since the 
Apple ll's keyboard doesn't have a TAB key, you have to use 
Control! for this. The Microproducts assembler makes you count 
spaces, which is downright criminal. Computers can count without 
ever making a mistake, but programmers can't; therefore 
programmers should never be called upon to count when there is a 
computer available to do it for them. 

Editing With Line Numbers 

Both of these assemblers include editors that work like the BASIC 
editor by using line numbers. The programmer must type a line 
number at the beginning of every line, and the sequence of the 
numbers becomes the sequence of the lines. And woe be unto him 
who accidentally uses the same numbers twice: the lines entered 
earlier will be written over by the later ones having the same 
numbers. If you have never been so careless as to make this error, 
reading about it here will probably suggest it to your subconscious, 
so beware! 

Now suppose that you have just typed in a program that is 250 
lines long, dutifully numbering the lines in steps of 10, and you 
want to examine an earlier part of the program. What do you do? If 
you have a printer, you can list the whole thing and examine any 
part you want to. Both assemblers include commands for starting 
and stopping a printer. But short of listing the whole program, 
suppose you just want to display part of it on the TV screen. 

Either assembler will enable you to start through the whole input 
file on the TV display and interrupt it when you reach the desired 
part, that is, if you have fast reactions. The S-C program is kinder: 
it has a SLOW mode for displaying. It also lets you specify range of 
line numbers to display, just as you do in BASIC. 

The S-C assembler has another feature which should prove very 
useful: you can APPEND a source file saved on tape earlier onto 
the input file you are currently editing in memory and assemble 
the whole thing as a single program. This makes it possible to build 
yourself a library of standard routines which you can use in several 
different programs with a minimum of effort. 



Shortcomings of the Microproducts Assembler 

There aren't a great many nice things I can say about the 
Microproducts assembler. It simply doesn't do all the things it 
should to help the programmer. For example, error messages are 
output as number codes which you have to look up in the manual. 
If it were programmed to do so, the computer could look them up 
a lot faster and put them out in English. With the S-C assembler, it 
does. 

In the Microproducts version, numeric expressions must include 
leading zeros. If you define a symbol as RATE DL 5, RATE will be 
assembled as hexadecimal 5000, not 0005.. But what's even more 
exasperating, once you get it defined as 0005, references to RATE 
will not assemble as zero-page addressing unless you prefix the 
symbol with an asterisk each time it is referenced. This is plain 
inexcuseable: the program should test for this and select the 
appropriate address mode automatically. 

Are There Bugs in the Programs? 

Nobody's perfect, not even the people who write assemblers. No 
matter how hard they try, debugging can't demonstrate the 
absence of bugs, only their presence. While I haven't tried out 
every feature of these assemblers yet, I have assembled the same 
program on both of them as a comparison. So far I have found only 
one bug in the S-C assembler. If you slip while typing an 
implied-operand instruction without a label and put the 
mnemonic in the label columns thus leaving the operation and 
operand fields blank the assembler will not detect the error but 
instead will repeat the previous instruction. 

The Microproducts assembler has bugs, too. It permits a comment 
on an instruction line, but if the comment is long enough that the 
line exceeds 40 columns so that the display continues on a second 
line, the address and object code which normally appear at the left 
of the screen get written on the second line and obliterate the 
comment. Another bug appears whenever you interrupt a listing, 
which you can do by hitting any key. The Microproducts 
assembler fails to clear the keyboard strobe, causing the key you 
used to interrupt it to become the first character of the next 
command. 

There is a curious error in the Microproducts manual where it 
states that the assembler is less than 3K bytes long, even though it 
loads from 2000 to 2CFF in memory, a total of 3,328 bytes. Just 
coincidental^, the S-C assembler loads from 1000 to 1BFF, making 
it exactly 3K bytes long. 

Wouldn't It Be Nice If...? 

While both of these assemblers are more powerful than the 
mini-assembler, some people are never satisfied. A couple of 
improvements occurred to me as soon as I started using these 
assemblers. 

In a BASIC program, the line numbers are an innate part of the 
program, used as destinations for COTOs and so on. Assembler 
language doesn't really use line numbers; these assemblers use 
them only because they make the editor simpler. It would be nice 
if the programmer didn't have to keep track of a lot of numbers; 
the computer is much better at it. If the editor has to have line 
numbers, an automatic line-number generator would be a nice 
option. 
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I'd like to see some kind of LOCATE function, too. Since the line 
numbers don't bear much relation to the program, especially after 
you've used the RENUMBER a time or two, the selective list 
feature of the S-C assembler isn't 100% effective for displaying a 
portion of the program. What if you don't remember the line 
number of the instruction you labelled SCAN? Wouldn't it be nice 
if you could type something like LOCATE "SCAN" and have the 
editor search for the line that has SCAN as its label? Some editors 
even have two different forms of this command: one which looks 
only at the beginning of each line, and another which searches all 
the way through each line to find the places where a label is used 
in an operand or in a comment. 



It is interesting to note the similarities between these two 
assemblers. The programs are nearly the same size, about 3K bytes, 
and priced at $20-$25. They use similar input formats and both 
of them do their editing by means of BASIC-type line numbers. 

Where they diverge the advantage is almost always with the S-C 
Assembler II. It has more features and a bigger manual, its error 
messages are output in English, and its format is a more logical 
extension of the Apple II mini-assembler. If you are the least bit 
interested in machine-language programming on the Apple II, I 
strongly recommend the purchase of a copy of the S-C Assembler 
II. 



APPLE CALLS AND HEX-DECIMAL CONVERSION 

Marc Schwartz 

220 Everit Street 

New Haven, CT 06511 



Bich Auricchio's "Programmer's Guide to the 
Apple II" (MICRO #4, April/May 1978) is a very 
useful step in getting out printed materials to 
help users fully exploit the Apple's potential. 
That his table of monitor routines can be used 
in BASIC programming is worth noting. 

Many monitor routines can be accessed in BASIC 
by CALL commands addressed to the location of 
the first step of the routine. If the routine 
is located in hex locations 0000 to 4000, it is 
necessary only to convert the hex location to 
decimal and write CALL before the decimal num- 
ber. Thus a routine located at hex 1E would be 
accessed by the command: CALL 30, since hex 00 1E 
= decimal 30. 

If you do not have a hex-decimal conversion 
table handy, you can convert larger numbers to 
decimal with the help of the Apple by the fol- 
lowing steps : 

1. Start in BASIC (necessary for step 2) 

2. Multiply the first (of four) hex digits 
by 4096, the second by 256, the third by 16 and 
the fourth by one . Add the four numbers to get 
the decimal equivalent. For example, to get the 
decimal conversion of 03E7, with the Apple in 
BASIC, press Control/ C and type 

>PRINT 0*4096 + 3*256 + 14«16 + 7 
then press RETURN. You'll get your decimal 
answer: 839- To begin a monitor routine you 
wrote starting at 03E7, merely put CALL 839 in 
.your program. 

If the hex location of the routine is between 
C000 and FFFF, then another method of figuring 
out the corresponding decimal location must be 
used . 

1. Start in BASIC 

2. Press the RESET button. 

3. Take the hex location of the routine and 
subtract if from FFFF. The Apple will help you 
do this; subtract each pair of hex digits from 
FF and press RETURN. The Apple will print the 
answer to each subtraction for you. For example 
the hex location of the routine to home cursor 
and clear screen is $FC58. 



» FF - FC RETURN 

= 03 
« FF - 58 RETURN 

= A7 

So, $FFFF - $FC58 = $03A7. 

Now convert to decimal as above , using BASIC 
( control/ C) to assist you. 

>PRINT 0*4096 + 3*256 + 10*16 + 7 

and after pressing RETURN you will have your 
answer, 935. 

4. Add one to the total, here giving 936. 

5. Make the new total negative, or -936. 

6. That's it. Now just put a CALL in front 
of the number: CALL -936. 

Of course , these steps of converting hex loca- 
tions to decimal are the same ones to take if 
you want to access the PEEK or POKE functions of 
the Apple. In all, they allow the BASIC pro- 
grammer to take much fuller advantage of the 
capabilities of the computer. 

And while on the subject of hex-decimal conver- 
sion, the Apple can help in decimal to hex con- 
version as well. For example to find the hex of 
a number, say 8765: 

1. Start in BASIC 

2. Divide the number by 4096, then find the 
remainder : 

>PRINT 8765/4096, 8765MOD4096 (return) 
2 573 

3. Repeat the process with 256 and16: 

>PRINT 573/256, 573M0D256 (return) 

2 61 

>PRINT 61/16, 61 MOD 16 (return) 

3 13 

.. .giving 2 2 3 13 or 223C. 
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APPLE II HIGH RESOLUTION GRAPHICS 
NENORY ORGANIZATION 

Andrew H. Eliason 

28 Charles Lane 
Falmouth, MA 02540 



One of the most interesting , though neglected , 
features fo the Apple II computer is its ability 
to plot on the television screen in a high res- 
olution mode. In this mode, the computer can 
plot lines, points and shapes on the TV display 
area in greater detail than is possible in the 
color graphics mode (GR) which has a resolution 
of 40 x 48 maximum. 

In the high resolution (HIRES) mode, the compu- 
ter can plot to any point within a display area 
280 points wide and 192 points high. While this 
resolution may not seem impressive to those who 
have used plotters and displays capable of plot- 
ting hundreds of units per inch, it is nonethe- 
less capable of producing a very complex graphic 
presentation. This may be easily visualized by 
considering that a full screen display of 24 
lines of 40 characters is "plotted" at the same 
resolution. An excellent example of the HIRES 
capability is included in current Apple II ad- 
vertisements. 

Why, then, has reletively little software app- 
eared that uses the HIRES features? One of the 
reasons may be that little information has been 
available regarding the structure and placement 
of words in memory which are interpreted by HI- 
RES hardware. Information essential to the user 
who wishes to augment the Apple HIRES routines 
with his own, or to explore the plotting possib- 
ilities directly from BASIC. In a fit of cur- 
iosity and Apple- insomnia , I have PEEKed and 
POKEd around in the HIRES memory area. The fol- 
lowing is a summary of my findings. Happy plot- 
ting! 

Each page of HIRES Graphics Memory contains 8192 
bytes. Seven bits of each byte are used to ind- 
icate a single screen position per bit in a ma- 
trix of 280H x 192V. The eighth bit of each 
byte is not used in HIRES and the last eight 
bytes of every 128 are not used. 

The bits in each byte and the bytes in each 
group are plotted in ascending order in the fol- 
lowing manner . First consider the first two 
bytes of page 1. (Page 2 is available only in 
machines with at least 24K) . 



BYTE 


! 8192 | 8193 I 


SCREEN 
POSITION 


1 2 3 t 5 6 7 8 9 10 11 12 13 



BIT 



0123*560 12 3 4 5 


6 


IV G V G V GIVIG V G V G V 


G 


u 





(Bit 7 not used) 



VIOLET 
GREEN 



Figure 1 represents the screen position and res- 
pective bit & word positions for the first 14 
plot positions of the first horizontal line. If 
the bit is set to 1 then the color within the 
block will be plotted at the position indicated. 
If the bit is zero, then black will be plotted 
at the indicated position. It can be seen that 
even bits in even bytes plot violet, even bits 
in odd bytes plot green and vice versa . Thus 
all even horizontal positions plot violet and 
all odd horizontal politions plot green. To 
plot a single white point , one must plot the 
next higher or lower horizontal position along 
with the point , so that the additive color prod- 
uced is white. This is also true when plotting 
single vertical lines. 

The memory organization for HIRES is, for design 
and programming considerations, as follows: 

Starting at the first word, the first 40 bytes 
(0-39) represent the top line of the screen (40 
bytes x 7 bits = 280). The next 40 bytes, how- 
ever, represent the 65th line (i.e., vertical 
position 64). The next 40 bytes represent the 
line at position 128 and the next 8 bytes are 
ignored. The next group of 128 bytes represent 
three lines at positions 8, 72 and 136, the next 
group at positions 16, 80 and 142, and so on un- 
til 1024 bytes have been used. The next 1024 
bytes represent the line starting at vertical 
position 1 (second line down) in the same man- 
ner. Eight groups of 1024 represent the entire 
screen. The following simple porgram provides a 
good graphic presentation as an aid to under- 
standing the above description. Note that there 
is no need to load the HIRES machine language 
routines with this program. Set HIMEM:8191 
before you type in the program. 



100 REM SET HIMEM:8191 

110 REM HIRES GRAPHICS LEARNING AID 

120 POKE -16304,0: REM SET GRAPHICS MODE 

130 POKE -16297,0: REM SET HIRES MODE 

140 REM CLEAR PAGE - TAKES 20 SECONDS 

150 FOR 1=8 192 TO 16383: POKE 1,0: NEXT I 

160 INPUT "ENTER BYTE (1 to 127)", BYTE 

170 POKE -16302,0: REM CLEAR MIXED GRAPHICS 

180 FOR J=8192 TO 16383: REM ADDRESS' 

190 POKE J, BYTE: REM DEPOSIT BYTE IN ADDRESS 

200 NEXT J 

210 POKE -16301,0: REM SET MIXED GRAPHICS 

220 GOTO 160 

999 END 



An understanding of the above, along with the 
following equations will allow you to supplement 
the HIRES graphics routines for memory efficient 
programming of such things as: target games, 3D 
plot with hidden line supression and 3D rota- 
tion, simulation of the low resolution C=SCRN 
(X,Y) function, etc. Also, you may want to do 
some clever programming to put Flags, etc., in 
the unused 8128 bits and 512 bytes of memory! 
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HI RES Graphics Equations and Algorithms 



Where: 



FB = ADDRESS OF FIRST BYTE OF PAGE. 

PAGE1 =8192 PAGE 2 = 16384 
LH = HORIZONTAL PLOT COORDINATE. TO 279 
LV = VERTICAL PLOT COORDINATE. TO 191 
BV = ADDRESS OF FIRST BYTE IN THE LINE OF 

40 
BY = ADDRESS OF THE BYTE WITHIN THE LINE 

AT BV 
BI = VALUE OF THE BIT WITHIN THE BYTE 

WHICH CORRESPONDS TO THE EXACT POINT 

TO BE PLOTTED. 



Given: FB,LH,LV 

BV = LV MOD 8 * 1024 + (LV/8) MOD 8 * 

+ (LN/64) * 40 + FB 
BY = LH/7 + BV 
BI = 2*(LH MOD 7) 



128 



To Plot a Point (Without HIRES Plot Routine): 

LH = X MOD 280 : LV = Y MOD 192 (OR) 

LV = 192-Y MOD 192 
FB = 8192 
BV = LV MOD 8 « 1024 + (LV/8) MOD 8 * 128 + 

(LV/64) * 40 + FB 
BY = LH/7 + BV 
BI = 2*(LH MOD 7) 

WO = PEEK (BY) , x 

IF (WO/BI) MOD 2 THEN (LINE NUMBER + 2) 
POKE BY, BI + WO 
RETURN 

To Remove a Point , Substitute : 

IF (WO/BI) MOD 2 = THEN (LINE NUMBER + 2) 
POKE BY, WO-BI 

To Test a Point for Validity, the Statement: 

"IF (WO/BI) MOD 2" IS TRUE FOR A PLOTTED POINT 
AND FALSE (=0) FOR A NON PLOTTED POINT. 



MOS 16K RAM FOR THE APPLE II 

Allen Watson III 

430 Lakeview Way 

Redwood City, CA 94062 



MOS 16K dynamic RAM is getting cheaper. At the 
time of this writing, one mail-order house is 
offering 16K bytes of RAM (eight devices) for 
$120. Apple II owners can now enhance their 
systems for less than the Apple dealers' price. 
However, there is a potential drawback to the 
purchase of your own 16K RAM chips: speed. You 
may wonder why, since the Apple's 6502 CPU is 
running at only about 1 MHz, but things aren't 
quite that simple. 

To begin with, the Apple II continually refresh- 
es its video display and dynamic RAM. It does 
this by sharing every cycle between the CPU and 
the refresh circuitry, a half-cycle for each. 
This means that the RAM is being accessed at a 
2 MHz rate. 

That doesn't sound too fast, with the slowest 
16K parts rated at 300ns access time; but you 
have to remember that the RAM chips are 16-pin 
parts by virtue of a multiplexed address bus. 
There are two address-strobe signals during each 
memory access cycle, and the access-time specif- 
ication will be met only if the delay between 
these strobe signals is within specified limits. 
In the Apple II this delay is 140ns, which is 
too long. Furthermore, the Apple II timing 
doesn't allow long enough RAS precharge or row- 
address hold time for the slow parts . Judg- 
ing by the spec sheets, 200ns parts are prefer- 
able to 250ns parts, and 300ns parts shouldn't 
be used at all. In my Apple, 300ns parts caused 
a zero to turn into a one once in a while. 



Many mail-order houses do not mention device 
speeds in their ads. The best thing to do is to 
deal only with those suppliers who specify 
speeds, but for those who didn't, the table 
below shows the codes used by some 16K dynamic 
RAM manufacturers to indicate the speeds of 
their devices. Good luck, and caveat emptor! 



SPEED CODES USED BY 16K DYNAMIC RAM MANUFACTURERS 



Access Time (ns) 



Manufacturer 


Part No. 


150 


200 


250 


300 


AMD 


9016 


-F 


-E 


-D 


-C 


Fairchild 


F16K 


-2 


-3 


-4 


-5 


Intel 


2117 


-2 


-3 


-4 




MOSTEK 


4116 


-2 


-3 


-4 




Motorola 


MCM4116C 


-15 


-20 


-25 


-30 


National 


MM5290 


-2 


-3 


-4 




NEC 


>UD416 


-3 


-2 


-1 




T I 


4116 


-15 


-20 


-25 




Zilog 


Z6166 


-2 


-3 


-4 
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LIFE FOR YOUR APPLE 



Richard F. Suitor 

166 Tremont St. 

Newton, MA 02158 



A listing of LIFE for the APPLE II is described 
briefly here (see MICRO #5 for a pet version and 
discussions) . Because my experience with gener- 
ation time in BASIC paralleled Dr. Covitz' , the 
generation calculations are in assembly lang- 
uage. The display is initiated in BASIC and the 
routines are called from BASIC, which will slow 
down the generation time if desired. 

The entire (40x48) low resolution graphics disp- 
lay is used. An unoccupied cell is (black). 
An occupied one is 11 (pink). During the first 
half of a generation, cells that will die are 
set to color 8 (brown). Those to be born are set 
to color 3 (violet). During this stage, bit 3 
set indicates a cell is alive this generation; 
bits and 1 set indicate a cell will be alive 
the next) . During the second half (mop-up) part 
those with bits set are set alive (color 11), 
the rest are set to zero . 

The BASIC program allows one to set individual 
cells alive, and to set randomly 1 in N alive in 
a rectangular region. The boundries (X = and 
39; Y = and 47) do not change, but may be in- 



itialized. At the start of the program, NO PAD- 
DLE INTERVAL? is requested. If during the pro- 
gram the paddle reads close to 255 (as it will 
if none is connected) the number input here will 
be used instead. Zero is fastest, several gen- 
erations per second. Entering 200 gives a few 
seconds per generation. 

When X and Y coordinates are requested, put in 
the coordinates for any cells to be set alive 
A negative X terminates this phase. Setting X-N 
and a negative Y will initialize a rectangular 
region to 1 in N randomly occupied and terminate 
the initialization. The boundaries of the rect- 
angular region must be input and may be anywhere 
in the full display. A glider gun can be fit 
vertically in the display. However, don't init- 
ialize for Y 40 (other than random) for the 
scrolling during initialization input will wipe 
it out. "■■.*«* 

Before RUNning the BASIC program, set LOMEM: 
2500 to avoid overwriting the subroutines. 



>LIST 
1 



n: 



40 



9'3 

0£ 
03 
04 
05 
07 
10 
1£ 
£0 
3 
31 



4 
50 

crer 



TEXT 

GEN=£088 

MOP =££6 5 

DIM H$ '::?:' 

K 1 = 1 

K£=l 

CALL -936: VTRB 5: TAB 9: PRINT 

" CONWAY'S SAME OF LIFE" 

VTAB 15: PRINT "INITIATE PATTERN 
BELOW. X<0 WILL START" 

PRINT "THE LIFE PROCESS. A Y<0 

WILL GIVE A" 

PRINT "RANDOM PATTERN WITH ONE I 

N X ALIVE" 

VTAB ££: INPUT "RETURN TO TONTIN 

UE"-AS 

GOTO 1000 

REM 

POKE -1630£j 

GOTO 130 

FOR 1=1 TO K3 

CALL GEN 

FDR K=l TD Kl: NEXT K 

CALL MOP 

FOR K=l TO K£: NEXT K 

NEXT I 

REN 

KX= PDL '::0>-10 

IF KX>£4 THEN KX=KX1 

IF KX<0 THEN KX=0 

K1=KX*6 

K£=KX*£ 

K 3 = 5 . ••- ( k 1 + 5 ;■ + 1 

GDTD 104 



1 00 bR 

1010 CALL -936 

102 INPUT "NO PADDLE TIME INTERVAL 
-KX1 

1 1 COLOR= 11: I NPUT " I NPUT X , Y " 

? X < Y 
1105 IF Y<0 THEN 1S00 
1110 IF X<0 QR v<n THEN £500 
11£0 IF X>39 DR Y>39 THEN 1100 
1130 PLOT X-Y: GOTO 1100 
1300 INPUT "X DIRECTION LIMITS " 

< Hi. I£ 
1810 IF IK0 OR I£>39 DP I1>I£ THEN 

1 8 
13£0 INPUT "Y DIRECTION LIMITS " 

j J 1 - J£ 
183 IF .J Kfi OR J£>47 OR J1>J£ THEN 
18£0 

£000 CALL -936: GR 

£001 POKE -1630P, 

£0 0£ CALL -1998 

£0 05 FDR 1=11 TO I£ 

£010 FOR J=J1 TO J£: CDLDR=11: IF 
RND CO THEN CDLDR=0 

£0£0 PLOT I, J 

£030 NEXT J 

£04 NEXT I 

£100 GOTO 10 

£5 00 POKE -1630£- 

£510 CDLOP=0 

£5£0 FOR K=40 TO 47 

£530 HLIN 0-39 AT K 

£54 NEXT K 

£590 GOTO 100 

9000 END 
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!A 






A5 05 


02 


8503 


04 


A5 04 


06 


85 08 


08 


18 


09 


6980 


OB 


85 04 


on 


R505 


OF 


69 


11 


C9 08 


13 


DOOC 


15 


A5 04 


17 


6987 


19 


C958 


IE 


1 008 


ID 


8504 


IF 


R9 04 



£1 



£4 



> • * U - J 



13 
60 



BOFC 



CO 


8 OCA 08 


2B 


d U u u uy 


8E 


9 1 


3 


60 


31 


A087 


•3 o 


9ft 


34 


AA 


35 


R9 


■.r* r" 


994 009 


3 S 


997 009 


3D 


£108 


3F 


FOOF 


41 


1 06 


43 


FE4 09 


46 


FE7 009 


49 


8903 


4E 


F003 


4D 


FE4 09 



01 
08 
03 
04 
05 
06 
07 
08 
09 
10 
11 
IS 
13 
14 
15 
16 
17 
18 
19 
80 
£1 



£9 
3 
31 



X9 
40 
41 
4£ 
43 
44 
45 
46 
47 
48 
49 
50 
51 



DDK 



LIFE ROUTINES 
ENTER AT GENO 



:£08 
□LLN 
NWLN 
SUM1 
SUM£ 
EUF1 
EF1P 
EF1M 
EUF8 
BF£P 
BFEM 
NKLN 



Ijc 
4 



AND ££6 
DL 00£ 

004 

06 

007 

094 

094£ 

093F 

097 

097E 

096F 

♦NWLN+01 

♦DLLN+01 

♦NWLN 

♦DLLN 



FDR 
■'ERT. 



-DL 

.DL 

.DL 

.DL 

.DL 

.DL 

.DL 

.DL 

.DL 

LDR 

STR 

LDR 

STR 

CLC 

RDC 

STR 

LDR 

RDC 

CMP 

ENE 

LDR 

RDC 

CMP 

EPL 

STR 

LDR 

STR 

CLC 

RTS 

SEC 

ECS RTS1 
: GENERATE B I RTHS '::CDLDR=3 
GENO JSR INIT 
GEN1 JSR NKLN 

BCC GENS 
:RLL DONE IF CARRY SET 

RTS 
GEN£ LDY £7 

TYR 

TAX 
:COMP VERT DCC «S 
GEN6 LDR 

STR BUFli-Y 

STR EUF£jY 

LDR CDLLN) > Y 

BEG! GEN3 

EPL GEN7 

INC EUF1»X 

INC EUF£»X 
GEN 7 AND 08 

EEQ GENS 

INC BUFIj 



AND MDPO ALTERNATELY 

DEC. RESP. 

OLD HORIZ LINE 

NEW LINE 

« OF DCC. CELLS 



IN 



OLD* NEW 
DCC . " 



SAME 

RTS1 
LAST 



8 

♦ NWLN 

♦NWLN+01 



08 

SAME 

♦NWLN 



LAST 
♦NWLN 
04 
♦NWLN+01 



DEATHS CCDL=8> 



Note: The stars in the operand indicate 
zero page mode. 



78 



085 


B104 


057 


GENS 


LUfl 


ailiJLN) ? V 


0358 


FOOF 


058 




BEQ 


GENS 


0854 


10 03 


059 




BPL 


GEN4 


0856 


FE7 09 


06 




INC 


EUF£jX 


0359 


89 08 


061 


GEN4 


RND 


08 


08 5 B 


F0 06 


068 




BEQ 


GEN 5 


0S5D 


FE7 009 


063 




INC 


BUF£i.y 


086 


FE4 009 


064 




INC 


EUF1,X 


0863 


88 


065 


GEH5 


HEY 




0864 


CR 


066 




DEX 




0865 


1 OCE 


067 




BPL 


GEN 6 


0867 


R086 


068 




LDV 


86 


0869 


13 


069 




CLC 




086R 


RB67 09 


7 




LDR 


BUF1+87 


086D 


6D66 09 


071 




RDC 


BUF1+86 


087 


85 06 


078 




STR 


+SUM1 


08 7 £ 


RD97 09 


073 




LDR 


BUF8+87 


0375 


6 D 96 09 


074 




RDC 


EUF8+86 


0878 


35 07 


075 




STR 


♦ SUMS 






076 


:CDMP aCC 


J «S IN 3 


087 fl 


18 


077 


GNLP 


CLC 




08 7 B 


R5 06 


078 




LDR 


♦SUM1 


087D 


793F09 


079 




RDC 


EFIMj V 


088 


38 


08 




SEC 




0881 


F948 09 


08 1 




SBC 


BF1P.V 


0884 


85 06 


088 




STR 


♦ SUM! 


0886 


C9 03 


083 




CMP 


3 


0888 


FOOE 


084 




BEQ 


GEN9 


088 H 


9 004 


085 




ECC 


GENS 


08 8 C 


C904 


086 




CMP 


04 


08 8 E 


FOOE 


087 




BEQ 


GN1 


089 


El 08 


088 


GENS 


LDR 


CCILLN;- ? Y 


0898 


FOOR 


089 




EEQ 


GN10 


0894 


893F 


09 




RND 


8F 


0896 


5 04 


091 




BVC 


GN16 


0898 


B108 


098 


GEN9 


LDR 


CDLLN> " Y 


089R 


093 


093 




DRR 


3 


08 9 C 


91 08 


094 


GN16 


STR 


caLLN;' , ■( 


089E 


13 


095 


GN10 


CLC 




039F 


R5 07 


096 




LDR 


♦ SUMS 


08 Hi 


796F09 


097 




RDC 


BF8M.Y 


08R4 


•~' o 


098 




SEC 




08R5 


F978 09 


099 




SEC 


BFSPi-Y 


03 H 8 


85 07 


1 




STR 


♦ SUMS 


08HH 


C903 


1010 




CMP 


03 


08RC 


FOOE 


1 08 




BEQ 


GN1S 


OSRE 


90 04 


1 03 




ECC 


GNU 


03B0 


09 04 


1 04 




CMP 


04 


08 E£ 


FOOE 


1 05 




BEQ 


GN13 


08B4 


B104 


1 06 


GNU 


LDR 


CNULN::' ■> Y 


08B6 


FOOR 


1 07 




BEQ 


GN13 


08 B 8 


89F8 


1 03 




RND 


Oh 8 


08 BR 


50 04 


1 09 




BVC 


GN15 


08 BC 


B104 


1 1 


GN18 


LDR 


CNWLN) ? Y 


08 BE 


09 03 


1110 




DRR 


03 



CHRNGE CDLDR 
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CiSCO 


9104 


11£0 


GM15 


STR 


<MWLN> ? Y 




08CS 


88 


1 1 3 


GN13 


DEY 






08C3 


FOO'E 


1140 




BEQ 


GN14 




08 C5 


10 E 3 


1150 




B PL- 


GMLP 




08C7 


4CEE0S 


1 1 6 


GN14 


UMP 


GEN1 




OSCfl 


R9 04 


117 


INIT 


LDfl 


04 




08CC 


85 05 


1180 




STR 


♦NWLN+01 




08 CE 


R9 


1 1 9 




LDR 







08 DO 


8504 


1 £ 




STR 


+NI..ILN 




03 DE 


8D6809 


1 £ 1 




STR 


BF1P+36 




08 D5 


8D98 09 


1££0 




STR 


BFEP+36 




OSDS 


60 


1E30 




RTS 










134 


: MDP 


UP* 


IF COLOR 


AMD 3 =0? 






1£5 


: DTHERii.il> 


:E» OLIVE 


<CDL=11> 


OSDS 


£ OCR 08 


136 


mdpo 


JSR 


I MIT 




OS DC 


£0 03 


1£7 


MDP1 


JSR 


NXLN 




08DF 


9 1 


1 £3 




BCC 


MDP£ 




OSE 1 


6 


1£9 




RTS 






OSES 


R0£7 


1 3 


MOPS 


LDY 


C !'" 




OSE 4 


BIOS 


1 3 1 


naps 


LDR 


(DLLM.- 1 ? Y 




OSE 6 


FOOR 


133 




BEQ 


MDP 5 




OSES 


£97F 


133 




AND 


7F 




OSES 


C91 


1 34 




CMP 


10 




OSEC 


30 03 


1 35 




BM I 


MDP 4 




08EE 


098 


1 36 




DRR 


S 




OSF 


91 03 


137 


MDP 4 


STR 


COLLH;' :• Y 




03F3 


El 04 


1 33 


MDP5 


LDR 


cNWLN) * Y 




0SF4 


FOOR 


139 




BEQ 


MDP 7 




OSF 6 


39F7 


1 4 




FIND 


OF 7 




OSF 8 


6R 


1410 




RDR 






OSF 9 


9 00£ 


14£0 




BCC 


MDP 6 




OSFE 


09 04 


1 43 




DPR 


04 




OSFD 


£R 


144 


MOPS 


RDL 






OSFE 


91 04 


145 




STR 


a-i!.JLM> j V 




09 


8 K 


146 


MDP7 


DEY 






09 01 


F0D9 


147 




BEQ 


MDP 1 




09 03 


1 ODF 


148 

149 




EPL 
.EN 


MOPS 





REMOVE <::CDL=0: 



'MBOL TABLE 



•Ul_l_ 



M 

Ml.iLN 

SUM1 

SUMS 

BUF1 

BF1P 

EP1M 

BUFS 

BF3P 

BF3M 

MXLN 

SAME 

RTS1 



OOUc 
04 
06 
007 
094 
0943 
093F 
097 
0978 
096F 
08 
0831 
0834 



LAST 
GEMO 
SEMI 
GEMS 
GEM6 
GEM7 
GEM 3 
btM4 
GEM5 
GMLP 
GEMS 
GEMS 
GM16 
GM10 



08 


-icr 


08 


C O 


08 


SB 


08 


31 


08 


'~\—> i 


08 


49 


08 


5 


08 


59 


08 


63 


08 


7 P. 


08 


9 


06 


88; 


08 


9C 


08 


9E 



GM11 


0SB4 


GM1S 


08BC 


GM15 


08C0 


GM1 3 


08C 


C. 


GM14 


08C 


i' 


I M I T 


08C 


R 


MDPO 


OSDS 


MuRl 


08 DC 


MOPS 


OSES 


MDP3 


OSE 4 


MDP4 


08F0 


MDP5 


OSFE 


MDP 6 


OSFD 


MHP7 


09 1 


J 
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60230 A=A+1 : C=PEEK(A)-48 : IF C=-16 GOTO 60230 
60240 IF C>=0 AND C<9 THEN V=V«10+C : GOTO 60230 
60250 S+44 : A=A-1 : RETURN 

RESEQUENCE can sit quietly behind your program. 
When you say RUN 60010, your program is renum- 
bered. RESEQUENCE gives error notices if: 



A. 



B. 



a GOTO or GOSUB statement wants to go to 

a non-existant line; 

there isn't enough room for a new (higher) 

line number. 
In both cases you're given the (new) line number 
where this happens. RESEQUENCE doesn't run fast 
(allow about a second per line, more for large 
programs), but it's dependable and very useful. 



Program comments: Line 6000 stops the user pro- 
gram if it gets here. Lines 60010-60020 extract 
all GOTO, GOSUB, and THEN references and build 
them into a table. Lines 60030-60040 renumber 
all lines, and cross-references the table if 
needed. Line 60050 updates all line references. 

Subroutines: 60070 looks for an entry in the 
line number table. 60090 inserts a new entry 
into the table. 60110 revises a line number 
reference. 60160 starts a new scan of the user 
program; 60170 continues the scan with the next 
line. 60210 scans the user program for GOTOs, 
etc.; value S is used to accomodate ON A GOTO 
... type situations. 



AN APPLE II PAGE 1 NAP 



M.R. Connolly Jr. 
5009 Rickwood Ct. NW 
Huntsville, AL 35810 



In the Apple II, the on-screen text is stored in 
locations $400 through $7FF. Trying to deter- 
mine just where a particular spot resides in 
memory isn't easy. The page lines are stored 
neither consecutively nor sequentially. The 
APPLE page 1 map shows in hex and decimal the 
starting and ending locations of each line on 
the screen. Any given line is sequential from 
space 1 through space 40; eg, the 20th position 
of any line is equal to the beginning location 
+19 decimal or 14 hex. 

The value of the page map becomes apparent when 
used with a listing of the interpretation of 



numbers stored in the map. Any normal, inverse, 
or flashing character, or white block, black 
block, or cursor block may be positioned merely 
by poking the correct value in the location 
storing the page position you require. 

You might pass this off as just "nice to know" 
information, but it is very useful if, for in- 
stance, you are trying to make an impressive 
title page for a program you've spent weeks 
writing. Run the following short program, then 
try to duplicate it without using the page map 
and the character chart. It isn't easy! 



10 CALL -936: FOR I = 1205 TO 1217: POKE 1,32: POKE 1+ 512,32: NEXT I 
20 FOR I = 1333 TO 1589 STEP 128: POKE 1,32: POKE 1+ 12,32: NEXT I 
30 POKE 1463,141: POKE 1465,9: POKE 1467,67: POKE 1469,18: POKE 1471,207 
40 GOTO 40 



MAP OF LINE AND SPACE LOCATIONS FOR TEXT PAGE 1, APPLE II COMPUTER 



LINE 

1 

2 

3 

4 

5 

6 

7 



LOCATION 
HEX 


DECIMAL ' 


8 
9 


400-427 


1024-1063 


10 


480-4A7 


1152-1191 


11 


500-527 


1280-1319 


12 


580-5A7 


1408-1447 


13 


600-627 


1536-1575 


14 


680-6A7 


1664-1703 


15 


700-727 


1792-1831 


16 



780- 7A7 


1920-1959 


428-44F 


1064-1103 


4A8-4CF 


1192-1231 


528-54F 


1320-1359 


5A8-5CF 


1448-1487 


628-64F 


1576-1615 


6A8-6CF 


1704-1743 


728-74F 


1832-1871 


7A8-7CF 


1960-1999 
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17 
18 
19 
20 
21 
22 
23 
24 



450-477 


1104-1143 


4D0-4F7 


1232-1271 


550-577 


1360-1399 


5D0-5F7 


1488-1527 


650-677 


1616-1655 


6D0-6F7 


1744-1783 


750-777 


1872-1911 


7D0-7F7 


2000-2039 



Not used for on-screen display: 478-47F; 4F8-4FF; 578-57F; 5F8-5FF; 678-67F; 
6F8-6FF; 778-77F; 7F8-7FF 





MACHINE INI 


rERPRETATIC 


)N OF VALUES 


STORED IN $405 


5.7FF APPLE 


II COMPUTER 




FIGURE 


NORMAL 


INVERSE 


FLASH 


FIGURE 


NORMAL 


INVERSE 


FLASH 





128,192 





64 


| 


161,225 


33 


97 


A 


129,193 


1 


65 


ii 


162,226 


34 


98 


B 


130,194 


2 


66 


# 


163,227 


35 


99 


C 


131,195 


3 


67 


$ 


164,228 


36 


100 


D 


132,196 


4 


68 


% 


165,229 


37 


101 


E 


133,197 


5 


69 


& 


166,230 


38 


102 


F 


134,198 


6 


70 


' 


167,231 


39 


103 


G 


135,199 


7 


71 


( 


168,232 


40 


104 


H 


136,200 


8 


72 


) 


169,233 


41 


105 


I 


137,201 


9 


73 


* 


170,234 


42 


106 


J 


138,202 


10 


74 


+ 


171,235 


43 


107 


K 


139,203 


11 


75 


» 


172,236 


44 


108 


L 


140,204 


12 


76 


- 


173,237 


45 


109 


M 


141,205 


13 


77 


. 


174,238 


46 


110 


N 


142,206 


14 


78 


/ 


175,239 


47 


111 





143,207 


15 


79 





176,240 


48 


112 


P 


144,208 


16 


80 


1 


177,241 


49 


113 


5 


145,209 


17 


81 


2 


178,242 


50 


114 


R 


146,210 


18 


82 


3 


179,243 


51 


115 


S 


147,211 


19 


83 


4 


180,244 


52 


116 


T 


148,212 


20 


84 


5 


181,245 


53 


117 


U 


149,213 


21 


85 


6 


182,246 


54 


118 


V 


150,214 


22 


86 


7 


183,247 


55 


119 


A 


151,215 


23 


87 


8 


184,248 


56 


120 


X 


152,216 


24 


88 


9 


185,249 


57 


121 


Y 


153,217 


25 


89 


: 


186,250 


58 


122 


Z 


154,218 


26 


90 


, 


187,251 


59 


123 


c 


155,219 


27 


91 


< 


188,252 


60 


124 


\ 


156,220 


28 


92 


= 


189,253 


61 


125 


J 


157,221 


29 


93 


> 


190,254 


62 


126 


A 


158,222 


30 


94 


? 


191,255 


63 


127 




159,223 


31 


95 










(BLOCK) 


160,224Q 


32 ■ 


96D«H1 
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EXPLORING THE APPLE II DOS 

Andy Hertzfeld 

2511 Hearst St. Apt. 204 

Berkeley, CA 94709 



To say that the documentation which comes with Apple's Disk II 
system is skimpy is being very kind. Only a terse description of 
each DOS command is provided and absolutely zilch is said about 
its memory usage or internal structure. Hopefully, Apple will soon 
remedy this situation but until that time hobbyists must rely on 
each other for the vital information. I have been exploring the 
internals of the DOS for the last few months; this article 
summarizes some of the interesting things I've found. 

The DOS resides in the highest portion of your system's memory 
and is about 10K bytes long. Its exact size depends on how many 
file buffers you choose to allocate (one file buffer is needed for 
each simultaneously open file). Each file buffer is 595 bytes long 
and the system provides you with three to start with (you must 
have at least one). 

The DOS communicates with the rest of the system via the input 
and output hooks CSW and KSW located at $36 - $39 (This article 
uses "$" to indicate a hexadecimal number). Through these hooks 
it is given control every time a character is inputted or outputted. 
This is a nice scheme because it allows the DOS to be called from 
any environment (BASIC, Monitor, Mini-Assembler, etc.) but it has 
the drawback of activating the DOS when a command is typed as 
input to a user program, which is usually not what you want. Also, 
since the reset button resets the hooks, the DOS is disabled 
whenever the system is reset, which isn't so great. 

The process of loading the DOS into memory for the first time is 
called "bootstrapping." Bootstrapping is initiated when control is 
transferred to the PROM on the disk controller card. Memory 
pages 3 and 8 are blown by a bootstrap. There are two different 
types of disks you can boot from: masters and slaves. The 
distinction is that a master disk can be used to bootstrap on a 
system of arbitrary memory size while a slave will only work 
properly on a system with the same memory size as that which 
created it. This is because since the DOS sits at the top of memory, 
its addresses (for JSRs, JMPs, etc.) will be different on systems with 
different memory sizes. A master disk cleverly solves this problem 
by loading into low memory first and then relocating itself up to 
where it belongs. Note that this means that a master bootstrap will 
blow alot of additional memory. 

All addresses in this article are for a 48K system. If your system has 
memory size X, subtract 48K - X from the addresses that are given 
here. 



last volume number used. If it doesn't, a "volume mismatch" error 
is generated. While this "feature" may be nice for large business 
applications that don't want dumb operators inserting the wrong 
disks, it is very annoying to most average users, especially when 
you want to transfer a number of programs between two disks with 
different volume numbers. After much searching, I located the 
place where the volume check is performed and devised a patch to 
disable it. It's only two bytes long; just enter the monitor and type: 
"BDFE: A9 00 ". This will disable all volume checking until the next 
boostrap. It works by replacing the comparison instruction which 
performs the volume check with a " LDA #0 " instruction which 
sets the "equality" or Z flag, effectively forcing the match to 
succeed. 

Binary files of arbitrary length can be saved on disk with the 
"BSAVE" command. Each BSAVEd file has an implicit starting 
address and length associated with it; when the file is BLOADed it 
is loaded at the starting address. Unfortunately, there is no way 
provided for a user to find out the starting address and length of a 
BSAVEd file; this makes copying files that you are not intimately 
familiar with very difficult. 

Fortunately, when a file is BLOADed, the directory record of the 
file is always placed in a buffer in a fixed location. The buffer 
contains the starting address and length of the file as well as other 
useful information. The length is kept at memory locations $A9A3 
- $A9A4 while the starting address is stored at $A9B5 - $A9B6 (with 
the least significant byte first, as usual). Thus to retrieve the 
starting address and length of a BSAVEd program you can simply 
BLOAD it and then peek at the above locations. 

Some people might wish to alter the names of some of the DOS 
commands to suit their own, personal tastes (it is, after all, a 
personal computer). For example, I know many folks would like to 
abbreviate the "CATALOG" command to a simple "C". This is 
surprisingly easy to do; since the DOS lives in RAM the contents of 
its command table are easily changed. The command table is 
located from $A7EO - $A863. Each command name is represented 
as an ASCII string with the high bits off, except for the last 
character of the string, which has its high-order bit set. The strings 
are associated with the commands by their position in the 
command table (the first string corresponds to the INIT command, 
the second to the LOAD command, etc.). The position of every 
command is given below in Table 1. 



A call to the routine at $9DB9 will initialize or re-i.nitialize the 
DOS. This routine should be called after every reset to restore the 
hooks. It is exactly like typing "3DO" "G" as Apple's 
documentation recommends but is a little bit safer since the $3DO 
location is often destroyed by various programs. 

Every diskette has a volume number from 1 to 254 associated with 
it. It is assigned when the diskette is initialized and there is 
currently no easy way to change it. The volume number of the 
current disk is stored at $B7F6. Before most DOS commands the 
system checks to see if the current volume number matches the 



Thus you can dream up your own names for the commands by 
storing new strings in the command table. For example to change 
the name of the INIT command to "DNEW" you would enter the 
monitor and type " A7EO: 44 4E 45 D7". However, some caution is 
required when you change the length of a command name; in 
general you will probably have to rewrite the entire command 
table to achieve the desired affect. 

The error message table is stored at addresses $A8CD - $A980. 
By using the same techniques described for the command table, 
you can rewrite the error messages to be whatever you like. 
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TABLE 1: POSITION OF COMMANDS IN THE COMMAND TABLE 

The position refers to which string in the command table is 
associated with the command. 1 means its the first string, etc. 



Position 


Command 


1 


INIT 


2 


LOAD 


3 


SAVE 


4 


RUN 


5 


CHAIN 


6 


DELETE 


7 


LOCK 


8 


UNLOCK 


9 


CLOSE 


10 


READ 


11 


EXEC 


12 


WRITE 


13 


POSITION 


14 


OPEN 


15 


APPEND 


16 


RENAME 


17 


CATALOG 


18 


MON 


19 


NOMON 


20 


PR# 


21 


IN# 


22 


MAXFILES 


23 


FP 


24 


INT 


25 


BSAVE 


26 


BLOAD 


27 


BRUN 


28 


VERIFY 



It is hard to use the input and output hooks in conjunction with 
the DOS since you cannot simply change the hooks as they are the 
DOS' only contact with the rest of the system. Also, if you only 
change one of them, the DOS has the nasty habit of changing it 
back. Fortunately, the DOS has its own internal hooks it uses for 
keyboard input and video output. Its output hook is at $A996 - 
$A997 and the input hook immediately follows at $A998 $A999. If 
you change the contents of these addresses instead of the usual 
hooks at $36 - $39, everything should work just fine. For example, 
lets say you wanted to divert output to a line printer without 
disabling the DOS. If the line printer output routine is located at 
$300, all we would have to do is enter the monitor and type " 
A996: 00 03 ". 

To execute a DOS command from a BASIC program, you simply 
print it, prefixing it with a "control-D". The prefix character is 
stored at memory location $A9F5, with its high-order bit set. Thus, 
if you don't like control-D and wish to use some other prefix 
character, all you have to do is store a different character value 
into $A9F5. 

I am very curious to find out the primitive instructions the DOS 
uses to communicate with the disk controller, but without proper 
documentation it is very difficult to determine what does what 
(Can someone out there help me?). I have managed to find out the 
primitives that turn the drive on and off, though. If your controller 
card is in slot S, referencing memory location $C089 t $SO will 



power up the disk and start it spinning while referencing $C088 t 
$SO will turn it back off. 

This article is merely the tip of the proverbial iceburg; most of the 
DOS's internals still remain a mystery to me. I hope Apple 
eventually distributes complete documentation but until then 
other curious users can use this article as a starting point for their 
own explorations and hopefully report back what they find. Table 
2 (below) contains a summary of important addresses in the DOS 
for easy reference, including some not mentioned in the above 
commentary. 

TABLE 2: IMPORTANT ADDRESSES IN THE APPLE II DOS 
Function 



holds the volume number of the 
current diskette 

routine to re-initialize the DOS 

location of printing command 
character, initially set to control-D 

starting address of most recently 
loaded program, Isb first 

length of most recently loaded 
program 

the DOS command table 

the DOS error message table 

the internal hook address to output a 
character 

the internal hook address to input a 
character 



$C089 t $S0, S= slot no.* address to power up the disk 

$C088 t $S0, S= slot no.* address to power down the disk 

$9E4D routine which handles the input 

hook 



Address 




$B7F6 




$9DB9 




$A9E5 




$A9B5 - 


$A9B6 


$A9A3 - 


■ $A9A4 


$A7E0 - 


$A863 


$A8CD 


- $A980 


$A996 - 


$A997 


$A998 - 


$A999 



$9E7E 



$BD00 



routine which handles the output 
hook 

routine which reads in the directory 
off the disk. It is called by virtually 
every DOS command 



All addresses given (except those marked with an asterisk) refer to 
a system with 48K bytes of memory. If your system has memory 
size X, subtract (48K-X) from each address. 
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HOW DOES 16 GET YOU 10? 



Gary P. Sandberg 

1144 Amber Ridge Drive 

Lilburn, CA 30247 



In order to PEEK, POKE, figure CALL numbers, etc. effectively a 
knowledge of Hexadecimal / Decimal conversion is a necessity. 
My experience during the past ten years, working with computer 
systems and data processing equipment did not include anything 



that required hexadecimal addressing and coding. When I started 
using my Apple II, I was completely lost and confused with base 16 
math. I began looking for a way to work with hexadecimal 
effectively. The following conversion table was the answer. 



HEXADECIMAL / DECIMAL CONVERSION TABLE 



16" 



16' 



16" 



16' 






U 











1 


4,096 


256 


16 


1 


2 


8,192 


512 


32 


2 


3 


12,288 


768 


48 


3 


4 


16,384 


1,024 


64 


4 


5 


20,480 


1,280 


80 


5 


6 


24,576 


1,536 


96 


6 


7 


28,672 


1,792 


112 


7 


8 


32,768 


2,048 


128 


8 


9 


36,864 


2,304 


144 


9 


A 


40,960 


2,560 


160 


10 


B 


45,056 


2,816 


176 


11 


C 


49,152 


3,072 


192 


12 


D 


53,248 


3,328 


208 


13 


E 


57,344 


3,584 


224 


14 


F 


61,440 


3,840 


240 


15 



To convert a number from hexadecimal to decimal; 

1. in each column of the table, find the decimal equivalent for the 
hexadecimal digit in that position. 

2. add the decimal equivalents, found in step #1, to obtain the 
decimal number. 

Hopefully the following examples will help you master the use of 
the conversion table. 



To convert a number from decimal to hexadecimal; 

1. In the table find the largest decimal value that will fit into the 
decimal number to be converted. 

2. note its column position and hexadecimal equivalent. 

3. find the decimal remainder (subtract) 

4. repeat steps 1, 2, & 3 for each remainder. When a hexadecimal 
equivalent has been found in the right most column, the 
conversion is done. 



Convert Hex to Decimal using the conversion table. 



16- 



16< 



16 



16 
E 







16 



FE5E 



16 



Convert from left to right. 



14 
80 


list 


and 


3584 


ADD 


TOGETHER 


61440 







65118 



10 
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Convert Decimal to Hex using the conversion table. 





16 


65118 




-61440 


from table = F 


3678 




-3584 


from table = 


94 




-8Q 


from table = 


14 


from table = 



16' 



16 



16 







65118 



10 



FE5E 



16 



Remember the Apple ll's system monitor can help you with some 
of your hexadecimal problems. The monitor will do hexadecimal 
addition and subtraction, as shown on page 70 of the Apple II 
reference manual. 

The Apple ll's PEEK function also can be helpful. In BASIC key in 
PRINT PEEK (2), the Apple II will display on the screen the decimal 
value of decimal memory location 2. 

Use the POKE statement to change memory location 2, In BASIC 
key in POKE 2,255, then Return. Then PRINT PEEK (2), Return. The 
Apple will display 255. 



Then CALL -151, or hit Reset. The Apple II is now in the System 
Monitor. Key in 0002 or 2, Return, and the Apple II displays 
0002-FF. Why?, because we put the decimal value 255 into 
memory location 2 with the POKE statement, 255(10) is equal to 
FF(16), get the idea? 

For some conversions from hexadecimal to decimal or back the 
other way, you can use the POKE and PEEK method, but for most 
conversions use the table. 

Here are two more examples that don't use a conversion table: 
same numbers different method of conversion: 



Convert Hex to Decimal without using the conversion table, 



First digit is * 1 

Second digit is * 16 

Third digit is * 256 

Fourth digit is * 4096 



E » 1 = 14 

5 * 16 = 80 

E » 256 = 3584 

F * 4096 = 61440 



FE5E 



16 



65118 



10 



Convert Decimal to Hex without using the conversion table. 

65118 / 16 = 4069.875 -> .875 « 16 = 14 = E 

4069 / 16 = 254.3125 -> -3125 * 16 = 5 = 5 

254 / 16 = 15.875 .875 « 16 = 14 = E 

15 / 16 = .9375 -9375 * 16 = 15 = F 

65118 1Q = FE5E 16 



Use either method to convert from one number system to the 
other, and with a little practice you will be converting numbers 
with speed and accuracy. 
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APPLE II - TRACE LIST UTILITY 

Alan C.Hill 

12092 Deerhorn Rd. 

Cincinnati, OH 45240 



Did you ever use the TRACE function in Integer BASIC, only to 
give up in despair after looking at a screeen full of line numbers? 
Try it without a printer and you may never use TRACE again! Well, 
here's the utility that will put TRACE back into your debugging 
repertoire (for those of us who need a little help getting it right.) 

The utility presented here will list each BASIC program source 
statement line by line in the order executed. There's no need to 
refer back and forth between TRACE line numbers and the source 
program listing. Two versions are presented: Version 1 is a 
real-time utility; i.e. each statement is listed immediately prior to 
execution so you can follow the programs logical sequence. You 
can slow the execution rate down or even temporarily halt 
execution while you scan the screen. Version 2 only saves the line 
numbers of the last 100 lines executed for listifig later. Version 3 
could be useful in tracing a full-screen graphics program. 

The Technique 

The program utilizes the COUT hook at $36.37 to intercept and 
suppress TRACE printing. All other printing continues normally 
with one exception (see Warning #1). Before returning to the 
BASIC interpreter, the line number is picked up and pushed into an 
array (TR) in the variables area above LOMEM. If the number is the 
same as the previous line number, a zero line number is placed in 
the stack with the line number of a FOR I = 1 to 1000: NEXT I 
delay loop, for instance. When the number changes, it will be 
placed in the stack. The most recent 100 line numbers are saved. 
Tracing is performed under user control by the normal 
TRACE/NOTRACE statements. In Version 2, the lines may then be 
listed after the test program ends. The technique in Version 1 is 
similar with one distinction. The trace intercept routine transfers 
control to the utility program to list the line as soon as it is put in 
the stack. 

How The TRACE Intercept Routine Works 

The output pointer in $36.37 is initialized by the utility to the 
address ($300) of the Trace Intercept Routine. Each character is 
examined by TIR as it comes through if the TRACE flag is up (bit 7 
of $AO on). If off, TIR jumps back to the normal print utility at 
$FDFO. If the character is a # ($A3), it is assumed that a line 
number follows. Every line number in the stack is pushed down 
and the current line number is placed at the top. Location $DCDD 
points to the BASIC line about to be executed. The line number is 
in the second and third bytes. In Version 2, TIR returns to the 
interpreter. In the real-time version (Version 1), control is next 
transferred to the utility program at line 30020. TIR expects that 
the address of line 30010 has been saved in $15.16 by the utility 
programs CALL 945 in line 30010. TIR first saves the contents of 
$DC.DD and then replaces it with the contents of $15.16; It also 
saves the address of the current statement within the BASIC line. 
That is, the contents of $EO.E1 are saved at $1B.1C TIR can now 
transfer control back to the interpreters continue entry point by a 
JMP $E88A which then executes line 30020 of the utility. The 
current line of the test program is listed; the BASIC pointers are 
restored by the CALL 954 in line 30090; the return address is 
popped; and control is returned to the test program through $E881. 
Fait accompli. 



As mentioned previously, the TR array is used to save the line 
numbers. The array is set up the first time TIR is entered. Note that 
TR is intentionally not DIMensioned in the utility. TIR must handle 
that task since a RUN of the test program will reset the variables 
area pointer ($CC.CD) back to LOMEM. 

Programming The Routines 

TIR starts at $300. It could be relocated if the absolute references 
in the POKE and CALL statements are changed. Also note that the 
LIST statement in lines 30060 and 32040 will not be accepted by 
the Syntax checker. They must first be coded as PRINT statements, 
located, and changed to LIST tokens ($74) using the monitor. This 
is more easily done if these lines are coded and the tokens 
changed before the remaining lines are entered. See example 
below for the case where HIMEM is 32768: 

NEW 

30060 PRINT EXECLINE 

32040 PRINT TR (I) 

(hit reset to enter monitor) 

*7FEC;74 

*7FF9:74 

(enter Control/C) 

LIST 

30060 LIST EXECLINE 

32040 LIST TR (I) 



Using The Utility 

1. After coding the assembler and BASIC utility programs, the 
test program is then appended. This may be done by a RUN 
31000. Start the cassette recorder and hit Return when 
prompted. The test program will be appended to the utility 
program provided its highest line number is less than 29970. 

2. Create a line O that will be used to indicate that a line has 
successively executed. For example, code: 

O REM ***ABOVE LINE REPEATED*** 

3. Run the utility of your choice: 

RUN 30000 Version 1 (Real-time list) 

or RUN 32000 Version 2 (Post-execution list) 

4. Insert the TRACE/NOTRACE statements wherever desired in 
test program. Just enter the TRACE command directly if you 
want to trace the entire program. Also see Warning #1. 

5. RUN the test program. 

6. Display the results: 

A. Real-time Version: The lines will be listed automatically 
as executed. Note the FOR: NEXT loop in line 30090 can 
be adjusted to control the execution rate. The upper limit 
could be PDL(O), thereby giving you run-time control 
over the execution rate. Note also that execution can be 
forced to pause by depressing paddle switch O 
Execution will resume when the switch is released. 
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B. Post-execution Version: After stopping or ending the 
program, enter a GOTO 32020 command. The first page 
of statements will be displayed. Enter a "C" to display 
additional pages, a "T" to reset for another test run, or an 
"E" to return to BASIC. Note that even if you have traced 
with Version I, you can still display the last 100 lines with 
Version 2. 

Sample Run 



Test Program 



REM **» REPEATED »»« 

10 TRACE 

30 G0SUB 100+RND(3) *10 

40 FOR 1=1 TO 10: NEXT I 

50 GOTO 30 

100 PRINT "LINE 100": RETURN 

110 PRINT "LINE 110":RETURN 

120 PRINT "LINE 120":P0P 

125 NO TRACE: END 

> RUN 30000 

> RUN 



Trace Output 



30 G0SUB 100+RND(3)*10 
110 PRINT "LINE 110": RETURN 

LINE 110 

30 G0SUB 100+RND(3)*10 
40 FOR 1=1 TO 10:NEXT I 
REM «*« REPEATED ««« 
50 GOTO 30 

30 G0SUB 100+RND(3)*10 
120 PRINT "LINE 120":POP 

LINE 120 

125 NO TRACE: END 



For a slow motion game of "BREAKOUT", trace it with the 
real-time version! 

Hints And Warnings 

It's usually a good idea to deactivate TIR after the test program has 
ended by hitting Reset and Control/C and entering NOTRACE. 
Don't try to trace the test program without first running the utility 
program at line 30000 or 32000. 

To increase the debugging power of the real-time trace utility, 
make liberal use of the push button to halt program execution. 
With practice and the proper choice of the delay loop limit in line 
30090, you can step through the program one line at a time. Enter a 
Control/C while the push button is depressed and execution will 
be STOPPED AT 30070. You can then use the direct BASIC 
commands to PRINT and change the current value of the programs 
variables. Enter CON and execution will resume. 



With additional logic in the utility program, you can create 
specialized tracing such as stopping after a specified sequence of 
statements has been detected. Return via a CALL 958 if you don't 
want TRACE turned back on. 

Tracing understandably shows the execution rate of your program, 
but you probably aren't concerned with speed at this point. 
However, the wise use of TRACE/NOTRACE will help move things 
along. Also, when encountering a delay loop such as FOR 1 = 1 to 
3000: NEXT I, you may want to help it along by stopping with a 
Control/C entering 1 = 2999, and CONtinuing. 

Warning #1: There must be no PRINT statement with a# character 
in the output. TIR assumes that a # is the beginning of a trace 
sequence. Either remove the # or bracket the PRINT statement 
with a NOTRACE/TRACE pair. 

Warning #2: There must be no variable names in the test program 
identical to those in Version 1. The TR variable name must be 
unique in both versions. 

Warning # 3: Line O in the test program should be a REMark 
statement as described above to avoid confusion. Line O is listed 
when a line is successively repeated. 

Warning # 4: Once TRACE has been enabled, the test program 
must not dynamically reset the variables pointer (SCC.CD) with a 
CLR or POKE unless it first disables TRACE and resets $13.14; e.g., 
100 NOTRACE:CLR: POKE 19, O: POKE 20,0: TRACE is OK. 

Extensions 

The primary motivation for this program was to improve the 
TRACE function in Integer BASIC. However, one can imagine other 
uses of a program that gains control as each statement is executed 
— maybe the kernel of a multiprogramming executive. I would be 
interested in seeing your comments and modifications. 



Location 



ZERO PAGE MEMORY MAP 



Use 



$00.01 SAVE AREA FOR HIMEM. APPEND USES 
$05 PROGRAM SWITCH 0N=$FF 0FF=$7F 

Turned on when trace # character 
($a3) is detected. Turned off 
when next space character ($A0) 
is detected 
$13.14 ADDRESS OF TR STORAGE VARIABLE 
$15.16 ADDRESS THAT CAUSES RETURN TO 

LINE 30020 IN BASIC LIST UTILITY 
(Version I) 
$17.18 SAVE AREA FOR $DC.DD. ADDRESS OF 
CURRENT BASIC LINE IN TEST 
PROGRAM 
$1B.1C SAVE AREA FOR $E0.E1. ADDRESS OF 

STATEMENT WITHIN BASIC LINE 
$A0 APPLE II TRACE FLAG 0N=$FF 
0FF=$7F 
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TRACE INTERRUPT ROUTINE 

BY ALAN G. HILL 
23 NOVEMBER 1978 

COMMERCIAL RIGHTS RESERVED 



0300 




ORG 


$0300 




0300 24 AO 


START 


BIT 


$00A0 


IS TRACE ON? 


0302 30 03 




BMI 


$0307 


BRANCH YES 


0304 4C FD FD 


PRINT 


JMP 


$FDF0 


NO. BACK TO PRINT 


0307 C9 A3 


TRACE 


CMPIM 


$A3 


NUMBER SIGN? 


0309 FO OD 




BEO 


SWON 


BRANCH YES. IT'S A TRAC 


030B 24 05 




BIT 


$0005 


SWITCH ON? 


030D 10 F5 




BPL 


PRINT 


NO. PRINT CHARACTER 


030F C9 AO 




CMPIM 


$A0 


SPACE? 


0311 DO 04 




BNE 


RETURN 


NO. RETURN W/0 PRINTING 


0313 4C D3 03 




JMP 


TRCOFF 


VER. II LDAIM $7F 


0316 EA 




NOP 




VER. II STA $05 


0317 60 


RETURh 


J RTS 




BACK TO BASIC 


0318 A9 FF 


SWON 


LDAIM 


$FF 


TURN ON SWITCH 


031A 65 05 




STA 


$0005 




031C A5 13 




LDA 


$0013 


FIRST TIME THRU? 


031E DO 49 




BNE 


GLINO 


BRANCH NO. TO GET LINE 1 


0320 A5 14 




LDA 


$0014 




0322 DO 45 




BNE 


GLINO 




0324 A5 CD 




LDA 


$OOCD 


YES. SETUP TR ARRAY 


0326 85 14 




STA 


$0014 


IN VARIABLES 


0328 A5 CC 




LDA 


$OOCC 


AREA AND ADJUST 


032A 85 13 




STA 


$0013 


POINTER 


032C 18 




CLC 






032D 69 CF 




ADCIM 


$CF 




032F 85 CC 




STA 


$00CC 


NEW PV 


0331 A5 CD 




LDA 


$OOCD 




0333 69 00 




ADCIM 


$00 




0335 £5 CD 




STA 


$OOCD 




0337 AO 00 




LDYIM 


$00 




0339 A9 D4 




LDAIM 


$D4 


H Tit 


033B 91 13 




STAIY 


$13 




033D C8 




INY 






03 3E A 9 D2 




LDAIM 


$D2 


lipil 


0340 91 13 




STAIY 


$13 




0342 C8 




INY 






0343 A 9 00 




LDAIM 


$00 




0345 91 13 




STAIY 


$13 


DSP 


0347 ce 




INY 






0348 A5 CC 




LDA 


$OOCC 




034A 91 13 




STAIY 


$13 


NVA 


034C C8 




INY 






034D A5 CD 




LDA 


$OOCD 




034F 91 13 




STAIY 


$13 




0351 18 




CLC 






0352 A9 04 




LDAIM 


$04 


POINT $13.14 TO TR 


0354 65 13 




ADC 


$0013 


DATA AREA-1 



NO. 
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0356 85 


13 




STA 


$0013 




0358 A5 


14 




LDA 


$0014 




035A 69 


00 




ADCIM 


$00 




035C 85 


14 




STA 


$0014 




035E A0 


CA 




LDYIM 


$CA 


INITIALIZE TR ARRAY 


0360 A9 


FF 




LDAIM 


$FF 


TO ALL FF'S 


0362 91 


13 


FLOOP 


STAIY 


$13 




0364 88 






DEY 






0365 DO 


FB 




BNE 


FLOOP 


LOOP TIL DONE 


0367 FO 


25 




BEQ 


SLINE 


ALWAYS 


0369 AO 


02 


GLINO 


LDYIM 


$02 




036B Bl 


13 


TLINE 


LDAIY 


$13 


IS LAST LINE NO. 


036D Dl 


DC 




CMPIY 


$DC 


SAME AS THIS ONE? 


036F DO 


08 




BNE 


NLINE 


BRANCH NO 


0371 88 






DEY 






0372 DO 


F7 




BNE 


TLINE 


LOOP 


0374 98 






TYA 




YES. PUT ZERO 


0375 48 






PHA 




LINE NO. IN 


0376 48 






PHA 




STACK TEMPORARILY 


0377 FO 


21 




BEQ 


TSTACK 


ALWAYS 


0379 AO 


02 


NLINE 


LDYIM 


$02 


IS THERE ALREADY A 


037B Bl 


13 


TLOOP 


LDAIY 


$13 


ZERO AT THE TCP? 


037D DO 


13 




BNE 


SLINE 


BRANCH NO TO GET LINE NO. 


03 7F 88 






DEY 






0380 DO 


F9 




BNE 


TLOOP 


LOOP 


0382 A2 


02 




LDXIM 


$02 


YES 


0384 C8 






INY 






0385 Bl 


DC 


CLOOP 


LDAIY 


$DC 


COMPARE WITH NEXT 


0387 ce 






INY 




LAST LINE NO. 


0388 C8 






INY 






0389 Dl 


13 




CMPIY 


$13 




038B DO 


05 




BNE 


SLINE 


IT'S DIFFERENT. SAVE IT 


038D 88 






DEY 




IT'S SAME 


038E CA 






DEX 






C38F DO 


F4 




BNE 


CLOOP 


LOOP 


0391 60 






RTS 




STILL THE SAME. RETURN Tl 


0392 AO 


02 


SLINE 


LDYIM 


$02 




0394 Bl 


DC 


PLINE 


LDAIY 


$DC 


PICK UP LINE NO. 


0396 48 






PHA 




HOLD IN STACK TEMPORARILY 


0397 88 






DEY 






0398 DC 


FA 




BNE 


PLINE 


BOTH DIGITS 


039A AO 


CB 


TSTACK 


LDYIM 


$CB 


PUSH DOWN ALL TR 


039C Bl 


13 


PLOOP 


LDAIY 


$13 


ELEMENTS TO 


039E ce 






INY 




MAKE ROOM FOR 


039F ce 






INY 




NEW LINE NO. AT TR(O) 


03 A 91 


13 




STAIY 


$13 




03A2 88 






DEY 
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03A3 88 DEY 

03A4 88 DEY 

03A5 DO F5 BNE PLOOP LOOP UNTIL DONE 

03A7 AO 01 LDYIM $01 

03/\9 68 PLA PUT NEW LINE NO. OR 

03AA 91 13 STAIY $13 ZERO IN TR(O) 

03AC 08 INY 

C3AD 68 PLA GET HIGH ORDER BYTE 

03AE 91 13 STAIY $13 STUFF IT TOO 

°3B0 60 RTS RETURN TO BASIC 

03B1 A5 DC SAVE LDA $OODC ROUTINE TO SAVE ADDRESS 

0363 8 5 15 STA $0015 SO TIR WILL CAUSE BASIC 

03B 5 A5 DD LDA $OODD TO EXECUTE LINE 30020 

03B7 85 16 STA $0016 WHEN TRACE SEQUENCE IS DETECTED 

03B9 60 RTS RETURN TO UTILITY 

03BA A9 FF TEST LDAIM $FF ROUTINE TO RE-ENTER TEST PGM 

03BC 85 AO STA $00A0 TURN TRACE BACK ON 

03BE A5 17 LDA $0017 RESTORE TEST PROGRAM 

03C0 85 DC STA $OCDC LINE NO. 

03C2 A5 18 LDA $0018 

03C4 85 DD STA $OODD AND 

03C6 A5 IB LDA $001B 

03C8 85 EO STA $00E0 STATEMENT ADDRESS 

03CA A5 1C LDA $001C 

03CC 85 El STA $00E1 

03CE 6B PLA POP UTILITY ADDRESS 

03CF 68 PLA FROM STACK 

03D0 4C 81 E8 JMP $E881 RE-ENTER BASIC TRACE ROUTINE 

03D3 A9 7F TRCDFF LDAIM $7F TURN OFF 

03D5 85 05 STA $0005 SWITCH AND 

03D7 85 AC STA $00A0 TRACE: (DON'T TRACE UTILITY) 

03D9 A 5 DC LDA $OODC 

03DB 85 17 STA $0017 SAVE ADDRESS OF 

03DD A5 DD LDA $OODD TEST PGM LINE NO. 

03DF 85 18 STA $0018 

03E1 A5 15 LDA $0015 SETUP TO TO TO UTILITY 

03E3 85 DC STA $OODC TO LIST LINE NO. 

03E5 A5 16 LDA $0016 SETUP LINE ADDRESS 

03E7 85 DD STA $00DD 

03E9 A5 EO LDA $00E0 SETUP STATEMENT ADDRESS 

03EB 85 IB STA $001B 

03ED A 5 El LDA $00E1 

03EF 85 1C STA $001C 

3F ± 68 PLA REMOVE ADDRESS FROM STACK 

03F2 68 PLA 

03F3 4C 8A E8 JMP $E88A GO TO UTILITY VIA CONTINUE 
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VERSION I: Real-Time Trace List Utility Program 



29770 
29980 
29990 
30000 



30005 
30010 
30020 
30030 
30040 
30050 
30060 
30070 
30080 
30090 
30100 
30110 



REM REAL-TIME TRACE LIST UTILITY PROGRAM 

REM SET-UP COUT AND INITIALIZE ZERO PAGE VALUES 

REM SET-UP TIR ASSEMBLER JUMP 

NOTRAGE; POKE 54,768 MOD 256: POKE 55,768/256: 

POKE 19,0:POKE20,0=POKE 787,76: POKE 788,211: 

POKE 789,3: POKE 790,234 

REM SAVE ADDRESS SO TIR RETURNS TO LINE 30020 

CALL 945 :END 

EXECLINE=TR(0): IF EXECLINE #0 THEN 30050 

IF RRRRR=1 THEN 30070 

RRRRR=1: GOTO 30060 

RRRRR=0 

LIST EXECLINE 

IF PEEK (-16287)>127 THEN 30070: REM PAUSE IF SW(0) ON 

IF EXECLINE = THEN 30100: REM SKIP DELAY 

FOR JJJJJ=1 TO 100: NEXT JJJJJ: REM DELAY 

CALL 954: REM BACK TO TEST PGM 

END: REM NEVER EXECUTED 



31000 REM APPEND TEST PROGRAM 

31010 INPUT "HIT RETURN TO APPEND" A$ 

31020 POKE 0, PEEK(76): POKE 1, PEEK (77): POKE 76, PEEK (202) 

POKE 77, PEEK (203): CALL-3873: POKE 76, PEEK (0): 

POKE 77, PEEK (1):END 



VERSION II: Post-Execution Trace List Utility Program 



32000 



32010 
32015 
32020 



32030 

32040 
32050 
32060 
32070 
32080 
32090 
32100 



NOTRACE: POKE 54,768 MOD 256: POKE 55,768/256: POKE 19,0: 

POKE 20,0: POKE 787,169: POKE 788,127: 

POKE 789,133: POKE 790,5 

PRINT "TRACE SET UP. ENABLE TRACE IN TEST PROGRAM": END 

REM GOTO 32020 WHEN TEST PGM ENDED 

NOTRACE: POKE 54,240: POKE 55,253: 

IF PEEK (20)#0 THEN 32030: PRINT "TRACE 

WAS NOT ON IN TEST PROGRAM": GOTO 32090 

CALL-936: FOR 1=100 TO 1 STEP-1: 

IF TR (I)=-1 THEN 32060 

LIST TR (I) 

IF PEEK (37)>18 THEN 32090 

NEXT I 

GOTO 32090 

CALL-936: IF I>1 THEN 32060 

PRINT: PRINT "C/T/E?" 

KEY=PEEK(-16384): IF KEY< 128 THEN 32100: 

POKE -16368,0: IF KEY=212 THEN 32000: 

IF KEY=195 THEN 32080: END 
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6522 CHIP SETUP TIME 



John T. Kosinski 
4 Crestview Drive 
Millis, MA 02054 



Richard F. Suitor 
166 Tremont Street 
Newton, MA 02158 



MICRO 6:4 summarized some discussion from EDN concerning 
their difficulties with interface design. One point in particular 
caught our eye - a statement that the 6522 VIA chip cannot use the 
Apple-generated device select signal (from pin 41 of the I/O slot) 
because the data sheets clearly require that the chip be selected 
180 ns before the I/O enable signal goes high, whereas the 
Apple-generated signals occur nearly simultaneously. That is a 
misconception which we would like to correct. We report a 6522 
interface that uses the pin 41 select signal, that theoretically ought 
to work and in fact does work. 

The 6522 VIA - Why Bother? 

Since there are several interfaces both supplied by Apple and by 
other vendors, why bother? VIA stands for Versatile Interface 
Adapter. It was. designed by MOS Technologies, the same folks 
who brought us the 6502 and it is well named. It has two I/O ports, 
two timers and a shift register, and so many options in operating 
them that we won't try to list them. A very useful feature is that all 
of the functions can interrupt the 6502. Several software tasks 
(cassette I/O, music, software generated serial I/O) require the 
Apple to spend most of its time in timing loops. With the use of 
timers and interrupts, these functions can be performed while the 
system is running some other program. You can have your STAR 
WARS theme while shooting TIE fighters, instead of after; more 
prosaically, you can print edited text while editing more. The 6522 
is quite flexible because of its versatility; it is a definite asset to the 
Apple. 

What's the Big Problem? 

The 6522 was designed to work well with the 6502. The signals at 
the Apple I/O slots are not all 6502 signals, however - some are 
decoded device select signals, which would be very convenient to 
use if we could. According to the referenced letter, we can't - there 
is not enough time to select the chip. As mentioned before, the 
problem is not insurmountable; let's discuss timing a bit. The 6522 
has 16 registers that control all the bells and whistles. To 
communicate with the 6522 from the CPU, one: 

1. Selects one of the 16 registers with the address lines. 

2. Selects (turns on) the 6522 chip itself. 

3. Enables the I/O transaction. 

4. Disables the I/O transaction. 

5. De-selects the chip. 

Some of the processes take time. For example, th 6522 data sheets 
DO say that the address must be valid 180 ns before the I/O 
enable. They ALSO state that the select is normally derived from 
the address lines. However, the timing tolerance referred to is the 
register select operation of step 1, and it must occur 180 ns before 
the I/O enable of step 3. The data sheets DO NOT specify the chip 
select time of Step 2. A representative of MOS Technologies, 
looking at the circuit diagrams, estimated that it would be 
sufficient to have Step 2 occur 40 - 50 ns before Step 3. He did not 
offer a minimum lead time requirement. 



The 6502 and the 6522 expect that Step 3 wi 1 1 occu r when the 6502 
02 signal goes high and that Step 4 will occur when 02 goes low. 
The enable signal presented at the I/O port of the Apple is actually 
fy), a signal which leads 02 by 50 - 70 ns. That is a very short time, 
but long compared to the 10 ns or so it takes an LS gate to operate. 
There are three LS gates involved in a transfer (the chip itself, and 
data bus buffers at each end) giving a nominal 30 ns timing 
tolerance. Actually, if the devices on the data bus are properly 
tristated (i.e. they have very high impedance unless they are 
active), the capacitance of the bus and the buffer delays will 
probably permit proper operation with the ty) enable pulse. There 
certainly seem to be several circuits using that signal that work 
(now including, for some unknown reason, EDN's.) 

In summary, there are perhaps two problems in interfacing a 6522 
to the Apple: 

1. One may indeed need to select the chip before enabling the 
I/O, but no more than 40 - 50 ns before. 

2. One may need to use an I/O enable signal that is coincident 
(within about 30 ns) with the 6502 02. 

It is not at all clear what one could get away with if one tried; it is 
clear that if the requirements 1 and 2 are met, the 6522 should 
interface easily to the Apple II. However, since the device select 
and I/O select signals that Apple supplies de-select at the end of 
^0, one should reasonably expect that an interface that tristates 
when these signals deselect should work satisfactorily with the 
Apple despite the fact that the 6502 is accepting data for another 
50 ns. It is apparent from the discussion that has resulted from 
EDN's efforts that many interfaces so designed do work 
satisfactorily; it is not clear how marginal the operation is. 

There is an interesting discussion of the Apple timing in the Sept. 
issue of KILOBAUD starting on page 10. They reported on a 6522 
interface and found that the important time was the rise of the I/O 
enable signal. Since they do not mention what was done for chip 
select and for data bus buffering, one can only wonder if chip 
select timing was affecting their results. 

We decided to play safe and satisfy both requirements. One way to 
satisfy the second is to use the real 02. As it turns out, this also 
satisfies the first, because 02 lags the device select signal by about 
50 ns. This coincidence may have led to some confusion in 
interpreting timing experiments! This is the approach we followed; 
in retrospect, knowing what we do now, we would have proceded 
otherwise (i.e. perhaps used a delayed device select signal as an 
I/O enable signal.) Since it does no good to have the I/O enabled 
if the chip and the data bus buffers aren't, we lenghtened the 
device select signal by delaying it and ANDing it with itself. We 
had no problems with this approach. (It is not a 'better' solution 
than Mr. Scouten's; he is quite right that one cannot use both the 
pin 41 signal and the tyO directly with the 6522 for their intended 
functions. The difference, however, between 180 and 50 ns 
required setup time makes it feasible to use the pin 41 decoded 
device select signal if one chooses.) 
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AN APPLE II PROGRAM EDIT AID 

Alan G.Hill 

12092 Deerhorn Dr. 

Cincinnati, OH 45240 



When editing an Apple Integer Basic program, you often want to 
locate all occurrences of a variable name, character string, or 
BASIC statements. This is usually the case when you are changing 
a variable name, moving a subroutine, etc., and you want to be 
sure you have located all references. The BASIC Edit program 
presented here should aid your editing. 

The BASIC program should be loaded into high memory and the 
program to be edited appended to it. The Edit program uses a 
machine language routine at hex 300 to 39F to search BASIC 
statements for the requested string and return the BASIC line 
number in memory locations 17 and 18. The routine is re-entered 
at 846 to find the line number of the next occurrence. This process 
is continued until no further occurrences can be found. The high 
order byte of the line number (location 18) is set to hex FF to 
indicate that the search is finished. 

BASIC Edit Program 

Note in line 32680 of the BASIC program that LIST LINE is an 
invalid BASIC statement. You will have to resort to a little 
chicanery to get the statement in. First code line 32680 as PRINT 
LINE. Then, enter the monitor and change the PRINT token ($62) 
to a LIST token ($74). This is easiest done if you code line 32680 
first and then search for the token in high memory ($3FFA when 
HIMEN is 16384). 

After coding the BASIC program and the machine language 
routine, you will then need to append the program to be edited. 
Note that the program must have line numbers less than 32600. To 
append a program, you must first "hide" the Edit program. This is 
done by moving the HIMEN pointer (202) and (203) down below 
the Edit program. Then load the edited program and reset HIMEM: 
i.e.: 

LOAD (EDIT PROCRAM) 

POKE 76, PEEK (202) 

POKE 77, PEEK (203) 

LOAD (PROCRAM TO BE EDITED) 

POKE 76,0 HIMEM MOD 256 

POKE 77,64 HIMEM/256 



You can then RUN 32600 the Edit program. Enter the character 
string or variable name to be searched when prompted by 
"FIND?". To search for a hex string (e.g. all occurrences of 
COLOR=), enter an @ character followed by the desired hex 
character pair (i@66 for the COLOR = example) 



EXAMPLES 



To find all occurrences of: 

SCORE 

XYZ 

RETURN 

DIM A 

All references to 1000 



Input 

SCORE 

XYZ 

@5B 

@4EC1 

@E803 



The Edit program will end if the screen is full ( >18 lines). To 
continue the search for more occurrences, a RUN 32720 will return 
another page. Happy Editing! 



Find Routine 
Page Zero Memory Map 

$3-4 Address of search limit. Set to HIMEM by routine, but 

could be set lower to avoid searching Edit program. 

$6-7 Address of BASIC Token compared. Incremented until it 

exceeds Limit Address 

$8-9 Ending address - 1 of current statement being scanned 

$A-B Address of string being searched. Set up by Edit program 

$ C Length - 1 of string being searched. Set up by Edit 

program 

$11-12 Line number of statement containing the requested 
string. $12 is set to $FF if no more occurrences 



FIND ROUTINE 

A. G. HILL 
MARCH 1979 



HILO 


* 


HIHI 


* 


BSL 


# 


BSH 


* 


SEAL 


* 


SEAH 


* 


STRL 


* 


LNL 


* 


LNH 


* 



$0003 HIMEM LO BYTE 

$0004 HIMEM HI BYTE 

$0006 BASIC STATEMENT L0 

$0007 BASIC STATEMENT HI 

$0008 STATEMENT ENDING ADDRESS L0 

$0009 STATEMENT ENDING ADDRESS HI 

$000A STRING L0 

$0011 LINE NUMBER L0 

$0012 LINE NUMBER HI 
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0300 



ORG $0300 



0300 A5 CA 


START LDA $OOCA 


0302 85 06 


STA BSL 


0304 A5 CB 


LDA $OOCB 


0306 85 07 


STA BSH 


0308 A5 4C 


LDA $004C 


030A 85 03 


STA HILO 


030C A5 4D 


LDA $004D 


030E 85 04 


STA HIHI 


0310 AO 00 


LENGTH LDYIM $00 


0312 Bl 06 


LDAIY BSL 


0314 38 


SEC 


0315 E9 02 


SBCIM $02 


0317 18 


CLC 


0318 65 06 


ADC BSL 


031A 85 08 


STA SEAL 


031C A5 07 


LDA BSH 


031E 69 00 


ADCIM $00 


0320 85 09 


STA SEAH 


0322 AO 01 


LDYIM $01 


0324 Bl 06 


LDAIY BSL 


0326 85 11 


STA LNL 


0328 C8 


INY 


0329 Bl 06 


LDAIY BSL 


032B 85 12 


STA LNH 


032D A2 00 


LDXIM $00 


032F A9 03 


LDAIM $03 


0331 20 64 03 


JSR INCPNT 


0334 AO 00 


LDYIM $00 


0336 Bl 06 


TTOKEN LDAIY BSL 


0338 Dl OA 


CMPIY STRL 


033A DO 03 


BNE NXTOKN 


033C 20 7F 03 


OSR COMPAR 


033F 20 70 03 


NXTOKN JSR INCTOK 


0342 90 F2 


BCC TTOKEN 


0344 A5 08 


LDA SEAL 


0346 C5 03 


CMP HILO 


0348 A5 09 


LDA SEAH 


034A E5 04 


SBC HIHI 


034C BO 11 


BCS LIMIT 


034E A5 08 


LDA SEAL 


0350 85 06 


STA BSL 


0352 A5 09 


LDA SEAH 


0354 85 07 


STA BSH 


0356 A2 00 


LDXIM $00 


0358 A9 02 


LDAIM $02 


035A 20 64 03 


JSR INCPNT 


035D DO Bl 


BNE LENGTH 


035F A9 FF 


LIMIT LDAIM $FF 


0361 85 12 


STA LNH 


0363 60 


RTS 



SET UP ADDRESS OF FIRST 
BASIC STATEMENT IN 
LOCS 6 AND 7 

SET UP TO STOP SEARCH 

AT HIMEM. COULD BE 

CHANGED TO LIMIT SEARCH 

AT END OF PROGRAM BEING EDITED 

GET STATEMENT LENGTH 



MINUS 2 TO POINT TO 
LAST TOKEN IN STATEMENT 

SET UP STATEMENT ENDING 
ADDRESS IN 8 AND 9 
ADD IN CARRY IF ANY 



SAVE LINE NUMBER 
IN 11 AND 12 



IN 



ADJUST BSL TO POINT 
TO FIRST TOKEN 

COMPARE TOKEN TO 

FIRST CHARACTER IN 

STRING 

IF NOT EQUAL POINT TO NEXT 

IF EQUAL COMPARE REMAINING CHARS 

POINT TO NEXT TOKEN 

CARRY CLEAR THEN LOOK AT NEXT 

AT END OF STATEMENT. 

CHECK TO SEE IF AT END OF 

SEARCH LIMIT 

CARRY SET = LIMIT OF SEARCH 
SET UP BSL AND BSH TO POINT 
TO NEXT STATEMENT 



POINT TO LENGTH OF 
STATEMENT BYTE 

ALWAYS BRANCH 

SET UP LARGE LINE NUMBER 

TO INDICATE AT END OF SEARCH 

RETURN TO BASIC 
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0364 18 INCPNT CLC ROUTINE TO INCREMENT 

0365 75 06 ADCX BSL POINTERS. ENTER WITH 
0367 95 06 STAX BSL XREG = DISPLACEMENT 

0369 B5 07 LDAX BSH FROM 
036B 69 00 ADCIM $00 BSL, BSH 

036D 95 07 STAX BSH ACC = INCREMENT AMOUNT 

036F 60 RTS 

0370 A5 06 INCTOK LDA BSL ROUTINE TO INCREMENT 
0372 C5 08 CMP SEAL THE TOKEN ADDRESS BY 1 v 
0374 A5 07 LDA BSH SET CARRY IF AT END 
0376 E5 09 SBC SEAH OF STATEMENT 

0378 E6 06 INC BSL 

037A DO 02 BNE REXIT 

037C E6 07 INC BSH 

037E 60 REXIT RTS 

037F A4 OC COMPAR LDY $000C ROUTINE TO COMPARE 

0381 Bl OA COMPY LDAIY STRL REMAINING CHARACTERS 

0383 Dl 06 CMPIY BSL (C) LENGTH OF CHARACTER 

0385 FO 03 BEQ COMPX STRING -1 

0387 AO 00 LDYIM $00 RESET YREG 

0389 60 RTS 

038A 88 COMPX DEY 

038B 10 F4 BPL COMPY FOUND A MATCH! POP STACK ADDRESS 

038D 68 PLA AND RETURN TO BASIC. LINE NUMBER 

038E 68 PLA IS ALREADY IN LNL AND LNH. 

038F 60 RTS 



BASIC EDIT PROGRAM 

32600 DIM A$(30) 

32610 INPUT "FIND?",A$: CALL -936: 

IF A$(l,l)='@' THEN 32630: 

KK=LEN(A$): FOR 1=1 TO KK: 

POKE 911+I,ASC(A$(I,I)): NEXT I 
32620 POKE 12,KK-1: GOTO 32650 
32630 A$=A$(2,LEN(A$)): KK=LEN(A$): 

FOR 1=1 TO KK STEP 2: 

J=ASC(A$(I,I))-176: 

3J=ASC(A$(I+1,I+1))-176 
32640 IF 3>9 THEN 3=3-7: 

IF 33>9 THEN 33=33-7: 

POKE 912+1/2,3*16+33: NEXT I: 

POKE 12,KK/2-l 
32650 POKE 10,912M0D256: POKE 11,912/256 
32660 CALL 768 
32670 IF PEEK(18)>127 THEN 32730: 

LINE=PEEK(17)+PEEK(18)*256 
32680 LIST LINE 

32690 IF PEEK(37)>18 THEN 32730 
32700 CALL 846 
32710 GOTO 32670 
32720 CALL -936: GOTO 32700 
32730 END 
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A CASSETTE OPERATING SYSTEM FOR THE APPLE II 

Robert A. Stein, Jr. 

2441 Rolling View Dr. 

Dayton, OH 45431 



Have you ever wished that as great as the Apple II computer 
system is that you were able load programs by name from a library 
cassette? Well, with this mini-sized cassette operating system you 
can stack many programs on one cassette and load the one you 
want by typing in its name. Creat for showing off your system 
without juggling a dozen or so cassette tapes. 

The Cassette Operating System [CASSOS] resides in memory at 
locations 02C0 to 03FF, where it won't get clobbered by BASIC 
programs or initalization. Add the optional cassette control 
circuit, or purchase one of the commercially available ones. 
(Candex Pacific, 693 Veterans BLVD, Redwood City, CA 94063) 
and you never need envy the PET for its loading technique again. 
Operation 

Load the 'CASSOS' tape, which you have created from the 
assembly listing, just like any other machine language program 
(2C0.3FFR), then initalize the BASIC pointers by depressing 
CTRL-B, return. To load a program depress CTRL-Y and RETURN. 
"PROC?" will be displayed, enter a 1-10 character program name. 
The cassette tape will be searched and the program loaded if 
found. "XXXXXXXXXX LOADED" will be output, where 
XXXXXXXXXX is the program now in memory. If the cassette 
control circuit (described later) is present the tape will also be 
stopped. A line of question marks (?????????) are displayed if the 
requested program was not found. To write a program to the 
library cassette enter Yc (Ctrl-Y, "WRITE", and RETURN. Program 
will be saved under the name requested at PROC? . "XXXXXXXXXX 
OUT" will be displayed at completion and the recorder stopped. 
To end a cassette program file enter: Yc, "EOF", RETURN; a special 
record header will be written. Note that to conserve limited 
memory space the EOF routine utilizes the program write 
subroutine so the "XXXXXXXXXX OUT" message should be ignored. 

The program is structured such that the last 63 locations of the 
input buffer is used for display messages, so if more than 191 
characters are entered at one time the program will still function, 
but without messages. The listing as presented was for a 16K 
system, change location 0358 as follows for a different 
configuration: 



1F-8K 
2F — 12K 
3F — 16K 
4F — 20K 



5F — 24K 
7F - 32K 
8F — 36K 
BF — 48K 



Program Design 

The method by which CASSOS functions is to write a program 
header block consisting of header ID, program name, and start of 
the BASIC load. This is followed by the program data itself, 
utilizing the Apple monitor routines. 



A Cassette On/Off Circuit 

The following diagram describes a simple circuit for stopping and 
starting a cassette recorder which has a "remote" plug from the 
Apple II under program control. The theory involves activating or 



deactivating the AN3 signal on the Apple game connector. A store 
to location C05F turns the recorder on and location C05E turns it 
off. The strobe triggers a transistor which in turn opens a relay and 
closes the connection to the remote plug, starting the recorder. If 
your recorder requires an open connection to start tape movement 
wire the relay normally closed instead of open. It is also possible to 
add a relay that would interupt power to the recorder for control if 
you have no remote capability on your recorder. 




to recorder 
pin plug 




L* 



N.O. 



+5V (pin 1) 



6VDC RELAY 



2500 JX. 



1000A. 

AAA/V 



NPN 



<3 

+ 3.5V (pin 12) 



Chasis Cround (pin 8) 
Cassette Control Circuit 

Parts List 

All parts were purchased at a local Radio Shack 
6VDC Relay (275-004) 
NPN Transistor (2N3568 or equivalent) 
1000 Ohm Resistor 
2500 Ohm Resistor 
Mini-Plug 



All connections were made to a DIP Header which was modified 
by soldering a 16-pin IC to it so that the game paddles could still be 
used without modification when the cassette ON/Off circuit was 
in use. The common 6VDC relay was modified to be triggered by 
the game connector signals by wiring a 2500 ohm resistance 
(utilizing a series of resistors connected in series so that the sum is 
2500 Ohms) in parallel with the relay coil. If your recorders rewind 
controls are disabled by the remote jack wire a switch to bypass 
the. fransistor between chasis ground and the relay, which will 
allow the rewind to operate when depressed. If all this is beyond 
your scope use the purchased control or simply stop and start the 
recorder manually. 
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£0 
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5F 


C;8 
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ERR 
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C9 






CMP 
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A Cassette Tape Catalog 

Shown in exhibit is a short integer BASIC program which when 
loaded will list all the programs on a CASSOS format library tape. 
The CASSOS sub-routines are used so the software must be core 
resident. Just load the program, insert the library cassette into the 
cassette handler, and type RUN after starting the cassette player. 



£8 

3U 

48 

58 

68 

76 

88 

1 88 

1 1 8 

1£8 

1 38 

1 48 

1 ~ 8 

1 66 

£86 

£ ! 6 

£30 

£48 



MH 



N=1: CALL -936" UTRB (18); DIM Xs ( 1 ) 

INPUT "INSERT LIBRARY TAPE AMD DEPRESS 5 RETUFt 

POKE -16E89J0: CALL -936: f;nsi IE 300 

PRINT "FILE # PROGRAM NAME BYTES " 

PRINT " » 

CRLL 848: CfiLL -£59 

IF PEEK (688)= ASCC'E") THEN £16 

IF PEEK (688) # ASCC'S") THEN £86 

REN LORD INTO NON-EX I ST MEMORY i'888-EFF ) 

POKE 66? PEEK (788): POKE 61i.( PEEK i70l ) + i ?r i 

P0KE_6£»£55: POKE 63? 191: 6 ALL -£59 

PRINi' N? : PAKE ,--89? £: POKE 786? 177: CfiLL 785 

L= PEEK (708:1+ PEEK (781 ) *£56 

L=16384-L..:N=N+1 

PRINT !i "5L: GOTO 66 

88SUE 388: PRINT "NO EOF MfiRK" 

PAKE -16£98j6: GGSUB 368 

PRINT "***FNB OF' FILE*-**" 

CfiLL -155 

FOR 1=1 TO 36 

L= PEEK (-I6336JH PEEK (-16336): NEXT T 

CflL.L - 1659: RETURN 



":-RUN 

INSERT LIERRRY TAPE AND EE PRESS 

FILE # PR6GRAM NAME BYTES 



5 RETURN 



1 LI RECTORY 

£BILLB6ARD 

3R. ROULETTE 

4C0L0REYR0D 

5HELL0 

6E0WL I NG 

7E0XING 

8TICTACTGE 

*:*:*:ENI) OF FILE*** 



53 8 
185 
£838 
£ 119 
£636 
346 i 



S-C ASSEMBLER II 
Super Apple II Assembler 

Chuck Carpenter 

2228 Montclair PI. 

Carrollton, TX 75006 



I've had the good fortune to get an advance copy of an excellent 
assembler for the Apple II. The assembler was written by Bob 
Sander-Cederlof and has many desireable features. Bob has used 
sweet 16 and several routines from the monitor and integar BASIC 
(it doesn't run with the Applesoft ROM on). The result is a 
compact co-resident two-pass assembler. A summary of assembler 
commands and data is listed in Table 1. 

Here are a few of the assembler features: 

• Format compatible with Apple mini-assembler 

• Complete text editing using standard Apple 

screen and line editing features. 

• Save and Load as in integar BASIC 

• Psuedo op codes 

• Text for REMs following the line no. 

• Tabs to the opcode, operand and comment field using 

(CTRL) I 

• Symbol table 

• Listing, fast or slow 

• Stop and start a LIST or ASM at any time 

• Access Apple monitor from the assembler using $ 

• Run programs from the assembler 

The S-C ASSEMBLER II includes many other features. Among these 



For text editing, you can insert a line between other lines and list 
any single line or combination of lines. This allows character 
editing or line editing using Apple ESCAPE functions 
((ESCAPE)D,C,B). Also you can DEL(ETE) any line or combination 
of lines. 

An asterisk (*) in the first column of the label field allows that line 
to be a comment or blank line. Very useful for commenting a 
program. I used short comments in my programs; I only have 48 
columns. Actually the comment can be any length (up to 100 
characters or so). An asterisk used in the operand field means 
current location. You can add or subtract labels, hex and decimal 
values from the current location. Each of these can be added or 
subtracted, to or from, each other. Here are some examples: 

1000 LABL LDA *-* CURRENT-CURRENT 

1010 LAB2 LDA LABL-LABL 

1020 LAB3 LDA *-LABL 

1030 LAB4 LDA LABLt1234 

1040 LAB5 LDA S1234-LABL 

1050 LAB6 LDA SABCD-5678 

1060 * 

1070 * EXAMPLES OF ADDITION & SUBTRACTION OF 

1080 * CURRENT VALUE, LABELS, DECIMAL AND 

1090 * HEX VALUES FROM EACH OTHER. 

1100 * 



• Line renumbering starting at 1000 by Ws 

• Printer driver routine - his or yours (or 

mine for that matter). 

• Pagination of printed output 

• Program location and relocation 

• Can be used to renumber BASIC programs 

(except branches) 

• Operates within DOS (see Table 2) 

• Runs on an 8K machine 

I have included a couple of examples of the S-C ASSEMBLER II 
features in Figure 1 and 2. Figure 1 is a functional routine. Figure 2 
is merely for illustration of the .DA feature. Most of the assembler 
capability is illustrated in Figure 1. This routine, which compares 2 
byte data, can be used for many applications such as extended 
loop counters. The example also includes ASCII strings using the 
pseudo op code AS. 

A jump to the user exit at $3F8 was used to enter the data. This also 
takes advantage of the (CTRL) Y feature of the Apple monitor. 

By calling the print routine with PRT, a hard copy of a listing or of 
assembled output is obtained. The printer driver routine is output 
from the game paddle connector. This is a TTL level serial signal. 
Typing SLO(W) or FAS(T) stops the printer output. Also, SLO(W) 
will provide a slow listing of your program. You can stop and start 
the listing with the space bar and, escape back to the assembler 
with a (RETURN). FAS(T) cancels SLO(W) returning to normal 
screen speed. (See Slow List, MICRO #5 page 21.) 



Illustration of the DA feature is shown in Figure 2. The intent here 
is to show data in a single or 2 byte location. Once the data value 
has been assigned with the DA code, it can be manipulated with 
another feature. This feature is shown as a / (slant line) and # 
(pound) in the first column of the operand field. Here's what's 
happening: 



LDA /LABL 
LDA #LABL 



HI BYTE = -J- 256 
LOBYTE = MOD256 



As you can see from this and the previous examples, these features 
provide a very powerful assembler capability. 

Before I obtained this assembler I could never get very enthusias- 
tic about extensive machine or assembly language programming. 
Now, with this assembler, this coding is as easy as BASIC. You can 
get a copy for your Apple II from: 

S-C SOFTWARE 
P.O. Box 5537 
Richardson, TX 75080 
Price - $25.00 

1 think you will enjoy it: having the efficiency of machine 
language programs developed with the ease of BASIC. The 
combination of compact programs with interactive capability 
makes personal computing even more enjoyable. 



100 



Load 

Run 
or 



*1000.1CFFR 
*1000C Hard Entry 
*1003C Soft Entry 



Pseudo ops: 

label OR expr 
label EQ expr 
label DA expr 
label .HS xxxx.x 
label AS daaaa.ad 
.EN 







Commands: 


Entry 




LOAD 


ntry 




SAVE 






LIST 






LIST line# 






LIST line#,line# 






DELETE line# 


origin (optional label) 




DELETE line#,line# 


equate 




RENUMBER 


data (optional label) 




NEW 


hex string 




SLOW 


ascii string (d is any delimiter) 


FAST 


end 




PRT 
ASM 

RUN expr 
APPEND 

Table 1 




S-C Assembler II Summary Notes 



load program from tape 

save program to tape 

list entire program 

list selected line 

list range of lines 

delete selected line 

delete range of lines 

renumbers all lines 

erase program 

program slow list 

program fast list 

printer driver S1B77-1BFF 

assemble program 

execute starting at expr 

add program from tape to one in memory 



Instruction Steps: 

1. Bring up DOS per instruction manual 

2. Reset to monitor (*) 

3. Load assembler from tape 

4. Return to DOS using $3DOC 

5. BSAVE Assembler 

6. LOCK Assembler 

7. Call 40% Jumps to Assembler 

8. $3DOC Jumps to DOS soft entry but... 

At this point the DOS is clobbered. Any further use of DOS 
requires a reboot. It is very handy though to have the speed of 
loading the assembler from the disc. 



Table 2 
S-C Assembler II with Apple II DOS 



:flSM 



0300- 

03S£- 



0304- 
0306- 



03Liy- 
030B- 



34 
34 



R9 
fl9 



AD 
fill 



IS 
IS 



0y 

03 



02 
03 



03 
03 



1000 * .DA PSEUDO OP EXAMPLE 

1010 * 

10S0 .OR $300 

1030 HEX .Dfl *1S34 

1040 DEC .Dfl 4660 

1050 * 

1060 * ADDRESS OF DATA 

1070 ■* 

1080 LDA #HEX -HEX LO 
1090 LDA /HEX HEX HI 

1100 * 

1110 * DATA AT THE ADDRESS 

11S0 * 

1130 LDA DEC DEC LO 
1140 LDA DEC+1 DEC HI 

1156 .EN 



BYTE 
BYTE 



BYTE 
BYTE 



SYMBOL TABLE 

HEX 0300 DEC 



030S 

Figure 2 
DA Pseudo Op Example 
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:NEW 

S-C ASSEMBLER ][ 

:LpflD 
:fiSM 



0366- 58 £0 3C 
0303- £0 59 

0305- 8D 

0306- 58 £0 3E 
0309- 3D £0 59 
030C- SB 



030D- A5 3C 
030F- f:!^ 3E 
0311- A5 3D 
0313- E5 3F 
03 15- B0 06 
0317- A0 00 
0319- £0 £8 03 
03 1C- 60 
03 IB- A0 06 
03 IF- 4C £8 03 
03££- 09 80 
03£4- £0 ED FD 

y.Jc7— Cy 

03£8- B9 00 03 

03£E- 10 F5 

03£B- 4C ED FD 



03F8- 4C 0D 03 



SYMBOL TABLE 

COm FDED 

XL U03C 

YH 003F 

PRT1 03££ 



000 + S-C ASSEMBLER II EXAMFLE 

010 + 

0£0 + COMPARES HEX VALUES 
030 + AND INDICATES WHICH 
040 + IS GREATER (OR EQUAL J . 

050 * 

060 .OR $300 

070 : + : 

080 * .OR DEFAULT IS $0800 

090 * 

100 COUT .EQ *FDED 

110 LESS .AS 'X •■ V 
1£0 .HS 8D 



130 GREQ .AS 'X >= Y' 

140 .HS 8D 

150 XL .EG! *3C 

160 XH .EQ $3D 

170 YL .EQ $3E 

ISO YH .EQ $3F 

190 STAR LDA XL 

£00 CMP YL 

£10 LDA XH 

££0 SEC YH 

£30 BCS TST1 X >= Y 

£40 LDY #LESS-LESS 

£50 JSR PRNT 

£60 RTS 

£70 TST1 LDY #GREQ-LESS 

£80 JMP PRNT 

£90 PRT1 ORA #*80 

300 .JSR r.niiT 

310 I MY 

3£0 PRNT LDA LESSkY 

330 BPL PRT1 

340 JMP COUT 

350 * 

360 * DATA ENTRY THROUGH 

370 * USER EXIT @ *3F8. 

380 + 

390 * DATA. DATA OITRLJY 

400 * 

410 .OR *3FR 

4£0 JMP STAR 

430 .EN 



NORMAL OUT 



LESS 0300 

XH 0O3D 

STAR: 030D 

PRNT 03£8 



GREQ O306 
YL O03E 
TST1 03 ID 



EXAMPLE RUN 

■ 

:$ 10000. £0000 

X - := Y 
:f£000 . 1 000 

i s . i i 

f; s — I 

:*3.3 

■ i ■ _ i i 

, :: . •■■— T 



Figure 1 
S-C Assembler II Example 
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THE INTEGER BASIC TOKEN SYSTEM 
IN THE APPLE II 

Frank D. Kirschner 

2643 Rockledge Trail 

Dayton, OH 45430 



There are two primary methods of storing BASIC programs in 
microcomputers. One involves storing the entire program, letter 
by letter and symbol by symbol somewhere in memory, and 
interpreting the ASCII codes on execution. This is typical of BASIC 
compilers and some interpreters, like the TRS-80 Level 1. A more 
memory-efficient system uses tokens, eight bit bytes each of which 
represent a BASIC word or symbol. The TRS-80 Level II uses this 
method, as does the Apple II, to which the examples which follow 
apply. 

When in Integer BASIC, the Apple stores characters as they are 
entered in a character buffer (hex locations 0200 to 02FF). When 
"return" is entered, BASIC "parses" the entry (that is, interprets the 
ASCII characters and breaks the instruction into executable parts). 
It determines what is a command, what are variables, data and so 
forth. If it is legal and is preceded by a number between and 
32767 (a line number), it stores it in memory in a fashion discussed 
below. If there is no line number, it simply executes the command 
and awaits further instructions. 

The way the programs are stored is quite clever. When BASIC is 
initiated (control B or E000 G from the monitor) several things 
happen. First, the highest available user memory (RAM) is stored 
in memory locations 004C (Lo byte) and 004D (Hi byte), called the 
HIMEM pointer. Also, locations 00CA and OOCB, the 
start-of-program pointer, get the same numbers, since there is no 
program as yet. As program steps are entered, they are stored 
starting at the top of memory, highest line numbers first, and the 
start-of-program pointer is decreased accordingly. See Figure 1. 
When a line with a higher number than some already in memory is 
entered, they are shuffled to preserve the order. One application: 
if you enter a program and then hit control B, the program is not 
scratched (or erased); only the start-of-program pointer is affected. 
Since powering up the Apple fills the memory with a pattern of 
ones and zeros (it looks like FF FF 00 00 ...) from the monitor, it is 
easy to find the start of the program and then manually reset CA 
and CB to that location. 

This is the way program instructions are stored in memory: (All 
numbers are in hex) 



08 



01 
End of line 
indicator 
always 01 

Tokens for BASIC statements 



Line number (Lo byte, HI byte) 
This is line 100 (Decimal). 



Number of bytes in BASIC line (also, one less than the number of 
bytes from the beginning of the next line. 
Figure 2 



As an example, power up the Apple, bring up BASIC, and enter 

100 PRINT 0,50 
Enter the monitor (by pushing "reset"), and then examine the 
program by entering 

EXAMPLES FOR 
16K Apple 



4000 



3FA6 



HIMEM 
(Location stored in 4C and 4D) 



\ Program 



— • F i rst I i ne i n program 
(Location stored in CA and CB 



Figure 1 
Memory Map for Program Storage 

3FF4.3FFF return 
(Locations for a 16K Apple. Subtract 2000 hex for a 4K or add 4000 
hex for a 32K Apple.) You will see this: 

3FF4-0C64 00 62 

3FF8 - B0 00 00 49 B5 32 00 01 

which means: 

0C 

64 00 

62 

B0 

00 00 

49 

B5 

32 00 

01 



There are 12 bytes in this line 

It is line 100 (Decimal) 

PRINT (see Table 1 for complete list of tokens 

The next two bytes are a number (rather than tokens) 

The number 

The comma in a PRINT statement 

Another number follows 

The number 50 

End of BASIC line 
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To demonstrate the use of this information, return to BASIC and 

try to enter the following BASIC line: 
100 DEL 0,50 
You will get a syntax error, because the Apple Interpreter does not 
allow the command DEL in deferred execution mode. Now do this: 
reenter the monitor and change the 62 (PRINT) to 09 (DEL) and the 
49 (,for PRINT) to 0A (, for DEL) by entering 
3FF7: 09 Return 
3FFB: 0A Return 
Reenter BASIC (control C) and list. Try this instruction by adding 
lines between and 50, running the program, and then listing it. 
This allows you to write a program which will carry out some 
functions only the first time it is run and then automatically delete 
those lines. 

In addition to inserting instructions which cannot be entered as 
deferred commands, you can modify the program under program 
control. As an example, here is a program which will stop and start 
listing a long program by hitting a key on the keyboard. 
Bring up BASIC. 
Enter: 257 LIST 0: RETURN 
HIT RESET, 3FF6.3FFF RETURN 
You will see 
3FF6 - 0A 01 
3FF8 - 01 74 B0 00 00 03 5B 01 

What this means: 

3FF6: 0A Ten bytes in line 

3FF7,8: 01 01 LINE 257 

3FF9: 74 TOKEN FOR LIST 

3FFA: B0 Means "Number follows" 

3FFB,C: 00 00 LINE TO BE "LISTED" (LO, HI) 

3FFD: 03 TOKEN FOR COLON 

3FFF: 01 End of BASIC LINE 

Now enter 3FF7: FF FF Return 

Cont. C, List 

You have 65535 LIST O: RETURN 

Now enter 

100 X = PEEK (-16384): POKE -16368, 0:1F 

X 127 THEN 0: GOTO 100 

Reset, 3FCF.3FFF Return 

Change line no. from 100 to 65534 by entering 3FDO; FE FF Return 

Change GOTO 100 to GOTO 65534 by entering 3FF3: FE FF 

Change the in "THEN 0" to 65533 by entering 3FEE: FD FF 

In like manner, enter these remaining steps: (Under each number 

which has to be entered through the monitor, the Hex equivalent, 

in reverse order as it must be entered, appears) 

65533 I = I PEEK (I): IFI> PEEK (76H 

(FD FF) 

256*PEEK (77) THEN END: GOTO 

65531 
(FB FF1 
65532 X = PEEK (-16384):POKE -16386,0: 
(FC FF) 

IF X 127 THEN 65534 
(FE FF) 
65531 POKE 16374, PEEK (I t1): POKE 16380 
(FB BB) 

PEEK (l*2): COSUB 65535 
(FF FF) 
'32767 I = PEEK (202) 256* PEEK (203) 

The steps must be entered in reverse order (i.e descending line 
numbers) because the interpreter orders them by their number 
when entered, and will not re-order lines when the numbers have 
been changed through the monitor. 



The reason for making all these line numbers very high is so the 
applications program will fit "under" the list program. 
Now, in the monitor, move the start of program and HIMEM 
pointers below the program: 

3A: 49 3F Return 

4C: 49 3F Return 
Hit control C and list. Nothing is listed. The program has been 
stored in a portion of memory temporarily inaccessible to BASIC. 
Load your applications program, make sure all the line numbers 
are less that 32767, and change HIMEM through the monitor (4C: 
00 40) and execute RUN 32767. The program will list until you hit 
a key and then resume when you hit a key again. It uses the fact 
that each line begins with the number of bytes in the line followed 
by the line number. Numbers of successive lines are found and 
"POKE into the appropriate location in line 75535, Which then lists 
each line. 

Using these methods you can exercise considerably more control 
over the BASIC interpreter in your microcomputer. 



IMPROVED STAR BATTLE SOUND EFFECTS 

William M. Shryock, 3v . 

P.O. Box 126 

Williston, ND 58801 



10 



20 



30 



40 
50 
60 

70 

80 



POKE 0,160: POKE 1,1: POKE 
2,162: POKE 3,0: POKE 4,138 
: POKE 5,24: POKE 6,233: POKE 
7,1: POKE 8,208: POKE 9,252 
: POKE 10,141 

POKE 11,48: POKE 12,192: POKE 
13,232: POKE 14,224: POKE 15 
,150: POKE 16,208: POKE 17, 
242: POKE 18,136: POKE 19,208 
: POKE 20,237: POKE 21,96 
CALL -936: VTAB 12: TAB 9: PRINT 
"STAR BATTLE SOUND EFFECTS" 

SH0TS= RND (15)+1 

LENGTH= RND (11)»10+120 

POKE 1, SHOTS: POKE 15, LENGTH: 

CALL 

FOR DELAY=1 TO RND (1000): NEXT 

DELAY 

GOTO 40 



This version can be used in low 
res. programs without having to 
reset HIMEM. Also it can be load- 
ed from BASIC. 
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TABLE I 
APPLE II INTEGER BASIC TOKENS 



BASIC COMMAND OR FUNCTION 


HEX TOKEN 


ABS 


31 




( 
) 


3F 

72 




ASC ( 

) 


3C 

72 


Includes left paren. 


" 


28 


first quote 


" 


29 


second quote 


AUTO 


OD 
OA 




CALL 


4D 




CLR 


OC 




COLOR = 


66 


Includes = 


CON 


60 




DEL 


09 
OA 




DIM 


4F 


Numeric Arrays 


( 
) 


34 
72 




DIM 

( 
) 


4E 
22 
72 


String Array 


$ 


40 




DSP 


7C 


Numeric Variable 


DSP 


7B 


String Variable 


END 


51 




FOR 


55 




= 


56 




TO 


57 




STEP 


58 




COSUB 


5C 




GOTO 


5F 




CR 


4C 




HIMEN: 


10 


Includes : 


HLIN 


69 
6A 




AT 


6B 




IF 


60 




THEN 


24 


When followed by a 
line no. 


THEN 


25 


When followed by 
GOSUB or a basic 
operation 


INPUT 


54 


Numberic Variable 


INPUT 


52 


String Variable 


INPUT 


53 
27 


input if followed by 


" 


28 


first 


" 


29 


Second 


IN # 


7F 


Includes # 


LEN ( 


3B 


Includes ( 


LET 


5E 




LIST 


74 
75 





ND (CONT) 


HEX 


TOKEN 


LOAD 


04 




MAN 


OF 




NEW 


0B 




NEXT 


59 

5A 




NO DSP 


79 




NO TRACE 


7A 




PDL 


32 




( 


3F 




) 


72 




PEEK 


2E 




3F 


( 




72 


) 




PLOT 


67 
68 




POKE 


64 
65 




POP 


77 




PRINT 


63 


If used alone 


PRINT 


62 
46 
49 


Numeric Variable 


PRINT 


61 


String Variable 


" 


28 


First 


" 


29 


Second 


PR # 


7E 


Includes # 


REM 


5D 




RETURN 


5B 




RND 

( 

) 


2F 
3F 

72 




- 


36 




SAVE 


05 




SCRN ( 

) 


3D 
3E 

72 


Includes ( 


SCN 

( 
) 


30 
3F 

72 




TAB 


50 




TEXT 


4B 




TRACE 


7D 




VLIN 


6C 
6D 




AT 


6E 




VTAB 


6F 
03 




= 


71 


In assignment 


AND 


1D 




OR 


IE 




MOD 


1F 




NOR 


DE 
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RENUMBER APPLESOFT 



Chuck Carpenter 
2228 Montclair Place 
Carrollton, TX 75006 



Renumbering Applesoft programs suddenly became possible. The 
resequence program in Jim Butterfield's "Inside Pet BASIC," 
(MICRO 8:39) solved the problem. 

After clearing up a minor problem in the program (with help from 
Jim) I tried it on a 200 line program. Because of the way I started 
numbering in the first place, I had to fix-up about a dozen lines. 
But, I never would have gotten through that much renumbering 
otherwise. 

As Jim mentioned in his letter to me, a machine language program 
would have ran a whole bunch faster. With DOS and having to find 
a place to locate such a program, the BASIC approach may be 
easier. 

Here are some comments on the Applesoft version shown in 
Listing 1: 

-Line 60005 has some prompting inputs to set-up the program. 

-Use RUN 60005 to start renumbering. 

-Line 60060 brances to a DELete line. 

-Line 60160 is changed to a point to the line no. in Applesoft 
(2049 or $801). 
Note: These are the pointers for Applesoft ROM 

-Line 60160 was also changed to allow starting at any line 
number (M = LN-IN). 

-Line 60170 changed to allow any numbering increment (M = M 
tIN). 



-Line 60220- tokens changed for Applesoft (this information is in 
the Applesoft II manual). 

-Line 60260 and 60270 added to delete the renumber program 
and end it. 

To make using the program easier, an append program (also for 
ROM) does the job. The assembly language program shown in 
listing 2 links the two programs together. You only need to do this 
if you want to renumber an existing program. (You can still load 
the renumber program before you start a new program.) Here's 
how you use it. 

-Load the append program first. It fits in page 3 starting at $3A5. 

-Load the lower line no. Applesoft program. 

-Type Call 933 and (return). 

-Load the higher line no. renumber program. 

-Type CALL 955 and (return). 

-Use RUN 60005 to start renumbering. 

Be sure to record any output that appears on the screen. Write 
down the information and check the renumbering on the lines 
indicated. Putting longer line numbers in short spaces will be one 
message. Another will ask you to check where you used a THEN for 
a GOTO. The renumber program is not sure if it should renumber a 
line or a parameter. 

My thanks to Jim Butterfield for providing us with such a useful 
program (and helping me get this one running). Also, thanks to 
Bob Matzinger from the Dallas Area Apple Corps for some 
modification suggestions and the Applesoft ROM append routine. 



Listing 2 

Applesoft append program. This program can be used to append 
any two programs together. 
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LIST 

83800 END 

©005 HOME : PRINT : PRINT "RENiSflEEP: ": PPINT : I 

NPUT "FIRST LINE # - "ULN: PRINT : INPUT "INCREHEN 

T - "5 IN 

£8010 _LET T = 0: DIM V?i(100>»WK(10Rl : GAP! IE 6P16P 

: FOR k = 1 TO 1E3: GOSUB 6021 fi 

€0020 IF G THEN GOSUB 6009Pi: NEXT P 

68030 UOSUB 68160: FOR R = i Tn 1E*:N = P-h m ■-' 

£56): HOKE Fi - 1»M - N * £56 
6004O POKE FbNrU = i_: GOSUB 6007R:WKr.H = M: GOPM 
E 60178: IF G THEN NEXT P 
68858 GOSUB 68168: FOR R = 1 TO 1E3: GPsi IE fiflElP: 

IF LJ THEN GOSUB 681 1R: NEXT P 
68868 PRINT "*END*": GOTH fifl£fifl 
68878 LET J = 8: IF T < > @ THEN FDR . I = 1 to J 

■■ IF UV(Jj < ; : . y THEN r .j E y T .| S .| = R 

€8088 RETURN 

63898 IF V < :=■ 8 THEN GOSUB 60R7R: IF ! = P tmp 

NT = T+ l!Wi(T) = W " ' '" 

68188 RETURN 

68118 GOSUB 68878: IF J = 8 THEN PETI iRN 

btil'de w = W'iUj: IF W = 8 THEN pPINT "Gn";"i ";i ;" 

?": RETURN " ' ' 

68138 FOR B = fl TO B + 1 STEP - 1:X = INT W s 

1WJ:Y = W - 18 * X + 48: IF N = 8 THEN Y = x£ 

fe«140 POKL D»Y:W = X: NEXT D: IF U = fl THEN PETI i 

KM ' ' " 

68150 PRINT "INSERT ,, ;WK(J); ,, L ,, !L: PETI RN 
60168 LET F = £049: M = LN - IN 
68170 LLT fl = F:M = M + IN 

68180 LET F = PEEK (fl) + PEEK (fl + 11 * £^6:L = 
PEEK (H + £) + PEEK (fl + 3) * £56: ft = fl + -::G = 

L < 6E4 
63198 KLTURN 
63£88 LET S = 8 
68£18 LET V = 0:fl = ft+l:B=fl:C= PEEK i "ft! : IF 

C = 8 THEN GOSUB 60170: ON G + £ GOTO 68£18*6m1Q 



60££8 IF C < > 171 AND C < > 176 AMD C < > 1*6 

AND C < > S UOTO 60£O0 
6O£30 LET A = A + 1:C = PEEK (A) - 48: IF P = - 

16 GUTO 6ti"d3@ 

63£40 IF C > = 8 AND C < 9 THEN ! .. ! = U * 18 + f: 
GOTO 68236 

6J£58 LET S = 44: A = A - 1: RETURN 
60£6y BEL 6000fi •> 6Pi£70 
60£70 END 

_ Listing 1 

APPLE II Applesoft Version of Jim Butterfield's Resequence 
program. 
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AN APPLE II PROGRAM RELOCATOR 

Rick Auricchio 
59 Plymouth Avenue 
Maplewood, NJ 07040 



After writing an Assembly-language program, the 
occasion often arises when one wishes the pro- 
gram to run in a different area of memory than 
that for which it was originally assembled. Re- 
locating a program requires changing all abso- 
lute references within the program, so that it 
will run elsewhere in memory. . .this process is 
tedious, time-consuming, and repetitive WORK. 



ENTER THE ELECTRONIC BRAIN 

Behold! We have before us an electronic marval 
which thrives on such repetitive work! After 
all, why not just write a program to relocate 
others? Read on 



USING REL0C8 

To relocate a machine-language program, the 
following procedure is followed: load REL0C8 
into the Apple and load the subject program into 
its "old" location. Type an Apple Move command 
to move the subject program to its "new" address 
followed by a space and control-Y. The REL0C8 
program will print all modified instructions and 
then exit when it's done. For example, to re- 
locate a subject program from "old" location 
1500-1800, to "new" location 2A00-2D00, one 
would type the following command: 

• 2A00<1500.1800M Ye 

This is a standard "move" command, moving the 
program with the Apple Monitor; however, we 
follow the "M" with a space and a control-Y so 
that REL0C8 will be entered immediately follow- 
ing the move command. When it is entered, 
REL0C8 picks up the address values from the 
"move" command . 



HERE'S WHAT IT TAKES 

When a Relocating Assembler creates object code 
one of the items built is a Relocation Diction- 
ary. This is actually a table of pointers to 
the program instructions that have absolute ad- 
dresses; it also contains some flags for use by 
a relocating loader so that the latter can ad- 
just the address references during the loading 
process . 

Unfortunately, we don't have such a luxury when 
relocating most programs ... all we have is raw 
machine language to work with. Our relocator 
will have to scan the subject program and find 
all absolute references which need adjustment. 



A FEW WORDS OF WARNING 

There is something to watch out for while using 
REL0C8. Since it scans the subject program for 
absolute addresses, any data imbedded within the 
program may cause REL0C8 to think the data is an 
instruction. In that case, the data will be 
modified and REL0C8's opcode scan might get "out 
of sync" with the real instructions in the sub- 
ject program. It's best to try and keep data 
separate from instructions; if REL0C8 does modi- 
fy some data, you'll have to fix it before run- 
ning the relocated program. 



**************************** 



FUNCTIONAL DESCRIPTION of REL0C8 

The REL0C8 program will use the Apple's SWEET-16 
utility for all 16-bit data and address manipu- 
lation; use of SWEET-16 saves a lot of 6502 code 
at the expense of some speed loss. In order to 
decipher the 6502 instructions of the subject 
program, Apple's Disassembler is used. (The 
disassembler, by the way, turns out to be a 
rather nice utility for things like this) . In 
order to minimize user intervention , it was de- 
cided that REL0C8 would be run as part of a 
standard Apple Memory-Move command. After load- 
ing the subject program in its "old" memory lo- 
cation , one enters an Apple Move command to copy 
it to the "new" memory location , followed by 
Control-Y (which starts REL0C8 after the Move 
completes) . 

All absolute address references which lie within 
the range of the subject program will be up- 
dated . References to addresses outside the sub- 
ject program (e.g. for Monitor calls) need not 
be changed . 



MACHINE-LANGUAGE 
PROGRAM RELOCATOR 

— RELOC8 — 



FOR THE APPLE-II 



RICK AURICCHIO 10/26/78 * 

* 
**************************** 

* 

* SWEET-16 REGISTERS 

* 

AC EQU RUtACCUMULATOR 

OB EQU 1 Rl:OLD BASE 

OE EQU 2 R2:OLD END 

NB EQU 3 R3:NEW BASE 

NE EQU 4 R4:NEW END 

RB EQU 5 R5:RELOCATION BIAS 
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00000000 
00000001 
00000002 
00000003 
00000004 
00000005 
00000006 
00000007 
00000008 
00000009 



0000F689 
0000F88E 
0000F8D0 

0000002F 
0000003C 
0000003D 
00000040 
00000041 
00000044 
00000045 
0000003A 
0000003B 



ACL 


EQU 





ACH 


EQU 


1 


OBL 


EQU 


2 


OBH 


EQU 


3 


OEL 


EQU 


4 


OEH 


EQU 


5 


NBL 


EQU 


6 


NBH 


EQU 


7 


NEL 


EQU 


8 


NEH 

* 


EQU 


? 


* 

SWEET16 


EQU 


X'F689' 


INSDS2 


EQU 


X'F88E' 


INSTDSP 


EQU 


X'F8D0' 


LENGTH 


EQU 


X'2F' 


AIL 


EQU 


X'3C 


A1H 


EQU 


X'3D' 


A3L 


EQU 


X'40' 


A3H 


EQU 


X'41' 


A5L 


EQU 


X'44' 


A5H 


EQU 


X'45' 


PCL 


EQU 


X'3A' 



SWEET-16 INTERPRETER 
DISASSEMBLE WITHOUT PRINT 
DISASSEMBLE SINGLE INSTR. 

DISASSEMBLED INSTR LENGTH 
WORK BYTES FOR MONITOR 



PCH 



EQU 



X'3B' 



PC LOW FOR DISASSEMBLER 
. .TAKE A GUESS . . . 



0300 
0300 
0302 
0304 
0306 

0308 
030A 
030C 
030E 

0310 
0312 
0314 
0316 



A5 


40 


85 


02 


A5 


41 


85 


03 


A5 


3C 


85 


04 


A5 


3D 


85 


05 


A5 


44 


85 


06 


A5 


45 


85 


07 



ENTRY IS VIA CONTROL-Y AFTER 
MOVING PROGRAM TO ITS NEW 
LOCATION IN MEMORY. THE 
VALUES FROM THE APPLE 'MOVE' 
COMMAND WILL BE PRESENT IN 
THE MONITOR WORK AREAS UPON 
ENTRY TO RELOC8. 



RELOC8 



ORG 

LDAZ 

STAZ 

LDAZ 

STAZ 

LDAZ 
STAZ 
LDAZ 
STAZ 

LDAZ 
STAZ 
LDAZ 
STAZ 



X'0300' 

A3L 

OBL 

A3H 

OBH 

AIL 
OEL 
A1H 
OEH 

A5L 
NBL 
ASH 
NBH 



ORG TO PAGE 3 
MOVE OLD BASE 



MOVE OLD END (+1) 



MOVE NEW BASE 
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0318 
031B 
031C 
031D 
031E 
031F 
0320 
0321 
0322 



20 89 F6 

23 

Bl 

35 

22 

Bl 

A3 

34 

00 



COMPUTE NEW END AND 
RELOCATION BIAS. 



JSR 

LD 

SUB 

ST 

LD 

SUB 

ADD 

ST 

RTN 



SWEET16 

NB 

OB 

RB 

OE 

OB 

NB 

NE 



GO TO SWEETIE 

RELOCATION BIAS 
IS DIFFEREOCE 

COMPUTE SIZE 
ADD TO NEW BASE 

AND WE HAVE NEW END 
6502 MODE! 



0323 
0325 
0327 
032A 
032C 
032E 



0330 
0333 
0334 
0335 
0336 
0338 
0339 



033B 
033C 
033D 
033E 



033F 
0340 
0341 
0342 
0343 
0344 
0346 
0348 
034A 
034C 
034F 
0352 



AO 00 
Bl 06 
20 8E F8 
A5 2F 
C9 02 
DO 24 



20 89 F6 

E3 

63 

Dl 

02 2A 
D2 

03 27 



A5 
F3 
F3 
73 



23 






FO 






FO 






FO 






00 






A5 


00 




85 


3A 




A5 


01 




85 


3B 




20 


DO 


F8 


20 


89 


F6 


01 


OE 





* 
* 

* 
* 

* 
GE 



SCAN THE PROGRAM FOR A 3-BYTE 
INSTRUCTION. ANY OTHERS DON'T 
HAVE TO BE RELOCATED. IF THE 
ADDRESS IS OUTSIDE THE PROGRAM, 
THEN WE CAN LEAVE IT ALONE. 
OTHERWISE, UPDATE IT BY ADDING 
THE RELOCATION BIAS. 

TINST 



LDYIM 





LDAIY 


NBL 


JSR 


INSDS2 


LDAZ 


LENGTH 


CMPIM 


2 


BNE 


NXTINST 



IF THE ADDRESS IS WITHIN THE 
PROGRAM, RELOCATE IT. 



JSR 
INR 
LDD 
CPR 
BNC 
CPR 
BC 



SWEET16 

NB 

NB 

OB 

NXT1 

OE 

NXT1 



ADD RELOCATION BIAS. 



ADD 
DCR 
DCR 
STD 



RB 
NB 
NB 
NB 



ANNOUNCE THE CHANGE 



LD 


NB 


DCR 


AC 


DCR 




DCR 




RTN 




LDAZ 


ACL 


STAZ 


PCL 


LDAZ 


ACH 


STAZ 


PCH 


JSR 


INSTDSP 


JSR 


SWEET16 


BR 


NXT1 



DUMMY INDEX 
GET OPCODE 
GET ITS LENGTH 
CHECK LENGTH 
3 BYTES? 
->N0PE. SKIP IT. 



HI, SWEETIE! 
BUMP TO ADDRESS 
GET BOTH BYTES 
>- OLD BASE? 
->LOWER. NO CHANGE. 
<- OLD END? 
->HIGHER. NO CHANGE. 



ADD BIAS 
BACK UP TO 

ADDRESS AGAIN 
STUFF BACK THERE 



BACK UP POINTER 
TO OPCODE 
FOR THE 
DISASSEMBLER 
BACK TO 6502 MODE 
MOVE POINTER 
TO PCH/PCL 
FOR THE 
DISASSEMBLER 
PRINT MODIFIED INSTR. 
RE-ENTER SWEET16 TO 
CONTINUE. . . 
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0354 
0355 
0357 
0359 
035B 
035D 
0360 
0361 



0362 
0363 
0364 
0366 
0367 
0368 



036A 
036B 



03F8 
03F8 



18 

69 01 
85 00 
A9 00 
85 01 
20 89 
A3 
33 



23 
D4 

03 04 
00 
B8 
50 B9 



F6 



00 
60 



4C 00 03 



WE'VE GOT A 1 
INSTRUCTION. 
NB POINTER TO 
INSTRUCTION. 



OR 2 BYTE 

UPDATE THE 

THE NEXT 



NXTINST CLC 

ADCIM 

STAZ 

LDAIM 

STAZ 

JSR 

ADD 

ST 

* CHECK TO SEE I 

* WITH THE PROG 

* 

NXT1 LD 
CPR 
BC 
RTN 
CLV 

BVC 

* 

* ALL DONE. EXIT 

DONE RTN 
RTS 

ORG 
JMP 

END 



1 

ACL 



ACH 

SWEET16 

NB 

NB 

F WE'RE DONE 
RAM YET. 

NB 
NE 
DONE 



GETINST 
TO MONITOR. 



X'03F8' 
RELOC8 



UPDATE LENGTH: 1/2/3 

GET LENGTH 

HI-0 

BACK TO SWEET16 

BUMP IT 

PUT BACK THERE 



GET CURRENT ADDRESS 
OVER THE END? 
->YUP. ALL DONE! 
->NO. BACK TO THE 
6502 MODE FOR 
MORE WORK! 



6502 MODE, PLEASE! 
BACK TO MONITOR! 



CONTROL-Y ENTRY 

ROLL STONE, GATHER MOSS, 
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PET 



PET pages 113 to 154 
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High Resolution Plotting for the PET 123 
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LIFESAVER 132 

The Ultimate PET Renumber 135 

A PET Hex Dump Program 145 

Continuous Motion Graphics, or, How to Fake a Joystick with the PET 148 

The Sieve of Eratosthenes 151 

Inside PET BASIC 152 
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A MEMORY TEST PROGRAM FOR 
THE COMMODORE PET 



Michael 3. McCann 

28 Ravenswood Terrace 

Cheektowaga, NY 14225 



It would be useful and convenient to be able to 
test PET's memory with a testing program rather 
than sending the machine back to Commodore for 
service. Towards this end I have written a 
memory test program in Commodore BASIC for the 
PET. The program is well commented, and should 
be self documenting, (see listing) 

Since the program occupies the lowest 4K of 
PET's memory, use of the program will require 
that the lowest 4K of memory be operating norm- 
ally. The amount of time required to run this 
program rapidly increases as the number of bytes 
under test is increased (see Figure 1.) 

Testing large blocks of memory results in more 
rigorous testing at the expense of time. There- 
fore, when using this program the user will 
have to make a decision regarding rigor vs. 
time. As a bare minimum, I would suggest test- 
ing 100 bytes at a time. 

In closing I would suggest that you get this 
program up and running before you have a prob- 
lem. It may prove difficult to get a new pro- 
gram working when you have a major system prob- 
lem. 



10 REM MEMORY TEST PROGRAM FOR THE COMMODORE PET 

20 REM PROGRAM WILL RUN ON 8K PET 

30 REM BY MICHAEL J MCCANN 

40 PRINT CHR$(147):EE=0:I=0 

50 INPUT "START ADDRESS"; SA 

60 IF SA<4097 OR SA>65535 GOTO 50 

70 INPUT "STOP ADDRESS"; SP 

80 IF ST>65535 OR SP<SA GOTO 70 

90 PRINT CHR$( 147): PRINT: PRINT 

100 PRINT TAB( 5) "WORKING" 

105 PRINT: PRINT" FAULT IN ADDRESS:"; 

110 REM MEMORY ACCESS AND LOGIC CIRCUITRY TEST 

120 REM WRITE ALL 

130 FOR A=SA TO SP 

140 POKE A,0 

150 NEXT 

160 REM CHECK FOR CORRECTNESS (=0) 

170 FOR A=SA TO SP 

180 IF PEEK(A)<>0 THEN EE=1:G0SUB 800 

190 NEXT 

200 REM WRITE ALL 255 

210 FOR A=SA TO SP 

220 POKE A, 255 

230 NEXT 

240 REM CHECK FOR CORRECTNESS(=255) 

250 FOR A=SA TO SP 

260 IF PEEK(A)<>255 THEN EE=1:G0SUB 800 

270 NEXT 

280 REM BEAT TESTS 

290 REM WRITE ALL 

300 FOR A=SA TO SP 

310 POKE A,0 

320 NEXT 

330 REM BEAT ONE ADDRESS WITH 255 

335 AD=SA+I 

340 POKE AD, 255 

350 POKE AD, 255 

360 POKE AD, 255 

370 POKE AD, 255 

380 POKE AD, 255 



390 REM CHECK ALL FOR EXCEPT THE ADDRESS 
BEAT WITH 255 

400 FOR A=SA TO SP 

410 IF A=AD GOTO 430 

420 IF PEEK(A)<>0 THEN EE=1:GOSUB 800 

430 NEXT 

440 IF AD=SP+1 THEN POKE AD,0: 1=1+1: GOTO 335 

450 1=0 

460 REM WRITE ALL 255 

470 FOR A=SA TO SP 

480 POKE A, 255 

490 NEXT 

500 REM BEAT ONE ADDRESS WITH 

505 AD=SA+I 

510 POKE AD,0 

520 POKE AD,0 

530 POKE AD,0 

540 POKE AD,0 

550 POKE AD,0 

560 REM CHECK ALL FOR 255 EXCEPT THE ADDRESS 
BEAT WITH 

570 FOR A=SA TO SP 

580 IF A=AD GOTO 600 

590 IF PEEK(A)<>255 THEN EE=1:GOSUB 800 

600 NEXT 

610 IF ADOSP+1 THEN 1=1+1 :P0KE AD,255:G0T0 505 

620 REM ADDRESSING TEST 

630 REM WRITE CONSECUTIVE INTEGERS (0-255) IN 
ALL LOCATIONS UNDER TEST 

640 1=0 

650 FOR A=SA TO SP 

660 IF 1=256 THEN 1=0 

670 POKE A, I 

680 1=1+1 

690 NEXT 

700 REM CHECK FOR CORRECTNESS 

705 1=0 

710 FOR A=SA TO SP 

720 IF 1=256 THEN 1=0 

730 IF PEEK(A)OI THEN EE=1:G0SUB 800 

740 1=1+1 

750 NEXT 

760 PRINT 

770 IF EE=0 THEN PRINT" NO MEMORY PROBLEMS DE- 
TECTED" 

780 END 

800 PRINT A; 

810 RETURN 



3.0 



2.0 






1.0 



O 




300 



BYTES TESTED 

Figure 1. Graph of Log(Time Required) vs. 
Number of Bytes Tested. (Time in Seconds) 
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PEEKING AT PET'S BASIC 



Harvey B. Herman 

Chemistry Department, L). of N. Carolina 

Greensboro, NC 27412 



Commodore, for reasons best known to them, has 
seen fit to prevent users from PEEKing at PET's 
ROM located, 8K BASIC. If you try to run a pro- 
gram that says, PRINT PEEK (49152), the answer 
returned will be zero instead of the actual ins- 
truction or data in decimal. Disassemblers 
written in BASIC will therefore not work prop- 
erly if they use the PEEK command and try to 
disassemble 8K BASIC (decimal locations 49152 to 
57520). I was curious to see how the PET's 8K 
BASIC was implemented and decided to write a ma- 
chine language program which circumvents the re- 
striction. 

A listing of the above program which I have cal- 
led MEMPEEK follows. It is decimal 22 bytes 
long, relocatable, and can be stored into any 
convenient area of memory. I have chosen to use 
the area devoted to the second cassette buf- 
fer starting at hex 33 A. As long as the second 
cassette is not used the program should remain 
inviolate until the PET is turned off. Storing 
the program in memory is trivial if a machine 
language monitor is available . Otherwise con- 
vert the hex values to decimal and manually poke 
the values into memory. As of this writing, 
Commodore's free, long-awaited, TIM-like monitor 
has not arrived but I continue to hope. 

MEMPEEK utilizes the user function (USR) which 
jumps to the location stored in memory locations 
1 and 2. If MEMPEEK is stored in the second 
cassette buffer (hex 33A) initialize locations 
1 and 2 to decimal 58 and 3 respectively. MEM- 
PEEK was written so that the user function re- 
turns the decimal value of the instruction given 
by its argument (address). For example, if you 
want to peek at an address less than decimal 
32768 (not part of the BASIC ROMs) use in your 
program Y=USR (address) , where address is the 
location of interest and the value of Y is set 
to the instruction at that address. Since the 
argument of the user function is limited to 
+32767, use address -65536 for addresses larger 
than 32768. Thus to look at locations in the 
BASIC ROMs (all above 32768 and where MEMPEEK is 
particularly useful) use Y=USR (address -65536). 
It is not possible to look at location 32768 
(the- start of the screen memory) with this pro- 
gram but this should prove no handicap as PEEK 
could be used . 



MEMPEEK takes advantage of two subroutines in 
the PET operating system. The first (located at 
hex D0A7) takes the argument (address) in the 
floating point accumulator (conveniently placed 
there by the user function) and converts it into 
a two byte integer stored at hex B3 and B4. 
Since I choose to use an indirect indexed instr- 
uction to find the desired instruction the order 
of the two bytes at hex B3 (MSB) and B4 (LSB) 
need to be reversed . The second subroutine at 
hex D278 converts a 2 byte integer representing 
the instruction from the accumulator (MSB) and 
the Y register (LSB) to floating point form and 
stores it in the floating point accumulator. 
This value, the instruction, is returned to 
BASIC as the result of the user function. 

The program, MEMPEEK, is fairly simple but would 
be unnessary if the arbitrary restriction on 
PEEKing at BASIC was removed. The restriction 
makes no sense to me as even a relatively inex- 
perienced machine language programmer (myself) 
was able to get around it . This type of program 
would of course not be difficult for competitors 
of Commodore to write. I wrote this program for 
the fun of it, to try to understand how BASIC 
works and in the hope others will find it use- 
ful . Furthermore , I hope I can discourage other 
manufacturers like Commodore from trying to keep 
hobbyists from a real understanding of their 
software by arbitrary restrictions. 



MEMPEEK Program 



convert to integer 
interchange - 
$B3 and $B4 



033A 1 *=$33A 

033A 20A7D0 2 JSR $D0A7 

033D A6B3 3 LDX $B3 

033F A4B4 4 LDY $B4 

0341 86B4 5 STX $B4 

0343 84B3 5 STY $B3 

0345 A200 7 LDX #0 ; initialize index 

0347 A1B3 8 LDA ($B3,X); find instruction 

0349 A8 9 TAY 
034A A900 10 LDA #0 

034C 2078D2 11 JSR $D278 ; convert to floating 

034F 60 12 RTS ; return to BASIC 

0350 13 END 
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PET UPDATE 



Gary A. Creighton 

625 Orange Street, No. 43 

New Haven, CT 06510 



I am writing this article because I'm tired of 
seeing the same rehash of pseudo- facts being re- 
peated about the PET. If I read one more time 
about the small keyboard or the RND function not 

working correctly ! As you will see, the 2001 

has an extremely well designed Interpreter which 
can be used effectively as subroutines either 
from the SYS command, or the USR command. Par- 
ameter passing will be revealed as an easy oper- 
ation, and returning USR with a value is just as 
simple. The RND function may be substituted 
with a twelve byte USR program to make it com- 
pletely random and non-repeating (as it stands, 
it repeats every 24084 times through) and I will 
show the use of negative arguments. Unfortun- 
ately, RND(0) was apparently a mis-calculation 
on Microsoft's part. They figured that ROM 
empty locations would turn out to be more random 
than the end product shows. They load non-exis- 
tent memory locations into the RND store area 
(218-222) thus causing a resulting RND value 
which fluctuates between a few different values. 
When ROM is finally installed in that area 
(36932) the RND(0) will have the dubious quality 
of being some fixed number . 

RND FUNCTION USE 

The RND function may be set at any time to exec- 
ute a known series of RND #'s by using a known 
negative argument just before RND with a posi- 
tive one. The ability to have available a known 
list of random numbers is very important in a 
lot of sciences. 

10 R=RND(-1) 

20 FOR X=1 TO 5 

30 PRINT INT(1000»RND(1)+1), 

40 NEXT X 

Gives the sequence: 736, 355, 748, 166,629 

Since RND(-low#) gives such a small value, use 
a negative argument in the range (-1 E10 to -1 
E30) if you need one repeatable RND number with 
a useful value, e.g., RND(-1 E20)= .811675238. 

Concerning the true random nature of RND and 
it's ability to act randomly at all times; time 
must be combined with RND. This is possible 
with a RANDOMIZE subroutine or faster still , re- 
doing RND(+) with a USR routine. 

10000 REM (RANDOMIZE) 
10010 R1=PEEK(514) : R2=PEEK(517) 
10020 POKE 220, R1 : POKE 221, R2 
10030 RETURN 

This routine may be used at program initializa- 
tion and as the program halts for an INPUT. It 
will start a new sequence of RND numbers when- 
ever called. 

When the computer does a sequence without inter- 
vention, the following USR program is suggested 
which will return a truly random number quickly; 
without repeating. 

10 REM (TRUE RND USING USR FUNCTION) 

20 POKE 134,214 : POKE 135,31 : CLR 
30 FOR X=8150 TO 81 65 

40 READ BYTE : POKE X, BYTE 



50 NEXT X 

60 DATA 173,2,2,133,220,173,5,2,133,221,76 

65 DATA 69,223,0,0,0 

70 POKE 1, 214 : POKE 2, 31 



MACHINE LANGUAGE STORING IN BASIC 

When using machine language, always precede 
storing by setting up BASIC'S upper boundary. 
This is done by: 

POKE 134, ITEM : POKE 135, PAGE : CLR 
e.g. POKE 134, : POKE 135, 25 : CLR 
sets upper boundary to 6400 and BASIC use will 
be confined to 1024 to 6399 unless reset or 
turned off. 

You can use the following program for storing 
decimal. Changing INDEX to 10000 to appropriate 
position and typing in DATA lines in 100 to 
9997. 

REM ("MACHINE STORE") 

1 REM WRITTEN BY GARY A. CREIGHTON, JULY 78 

2 REM ( SET INDEX=ORIGIN IN LINE 10000 ) 
^: 

15 REM FIX UPPER STRING BOUNDARY 

20 G0SUB 10000 

25 X=INDEX / 256 

30 PAGE=INT(X) 

35 ITEM=(X-PAGE)« 256 

40 POKE 134, ITEM 

45 POKE 135, PAGE 

50 CLR 

55 : 

60 REM LOAD MACHINE LANGUAGE 

65 GOSUB 10000 : L0C=INDEX 

70 READ BYTE : IF BYTE<0 THEN END 

75 POKE LOC, BYTE 

80 L0C=L0C+1 : GOTO 70 

85 : 

90 REM MACHINE LANGUAGE DATA 

100 DATA 



9997 DATA 

9998 DATA 0,0,0,-1 

9999 : 

10000 INDEX=( START OF MACHINE LANGUAGE) 
10010 RETURN 



USR PARAMETER PASSING 

The following are parameter passing rules for 
the USR function and should be added to the 
"MACHINE STORE" program. 

REM ("USR(0 TO 255)") 

46 POKE 1, ITEM 

48 POKE 2, PAGE 

100 REM (USR INPUT 0-255; OUTPUT 0-255) 

110 DATA 32,121,214 : REM JSR 54905 

120 DATA (Your program using input value) 



5000 DATA (Setup output value in Accum.) 
5010 DATA 76,245,214 : REM JMP 55029 
10000 INDEX 6400 
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OR 

REM ("USR(0 TO 65535)") 
46 POKE 1, ITEM 
48 POKE 2, PAGE 

100 REM (USR INPUT 0-65535; OUTPUT 0-65535) 
110 DATA 32,208,214 : REM JSR 54992 
(Note: Check if 0-65535. RTS with: 

Y and M(8)= ITEM 

A and M(9)= PAGE 
120 DATA (Your program using 2 byte passed 
value) 



5000 DATA (Setup output vlaue ITEM in Y; 
PAGE in A) 



5010 DATA 132,178 
5020 DATA 133,177 
5030 DATA 162,144 
5040 DATA 56 
5050 DATA 76,27,219 



REM STYZ 178 
REM STAZ 177 
REM LDXIM 144 
REM SEC 
REM JMP 5609 1 



The input parameter may be any complex express- 
ion and you can of course : 

input 0-255 and output 0-65535, or 
input 0-65535 and output 0-255. 



SAVE MACHINE LANGUAGE AND LOAD DIRECTLY 

The reason for the 0,0,0 at the end of the pre- 
ceding machine language programs is that the 
saving routine described next SAVES machine 
language until 0,0,0 or an ERROR is printed. 
After it has been saved in this way, it may be 
LOADED and VERIFIED with little effort. 

Add to "MACHINE STORE" program (all assembly is 
in decimal) . 



(Setup output value and RTS) 



OVER 



0VR2 



0VR3 
AGAIN 



0VR4 



REM ("SAVEM") 
100 REM ERAM=31 (or 
110 DATA 32,200,0 
120 DATA 208,3 
130 DATA 76,158,246 
140 DATA 32,17,206 
150 DATA 32,164,204 
160 DATA 32,208,214 
170 DATA 132,247 
180 DATA 133,248 
190 DATA 170 
200 DATA 152 
210 DATA 208,1 
220 DATA 202 
230 DATA 136 
240 DATA 132,80 
250 DATA 134,81 
260 DATA 169,173 
270 DATA 133,79 
280 DATA 169,96 
290 DATA 133,82 
300 DATA 32,200,0 
310 DATA 201,44 
320 DATA 208,3 
330 DATA 32,194,0 
340 DATA 32,51,244 
350 DATA 230,80 
360 DATA 208,2 
370 DATA 230,81 
380 DATA 32,79,0 
390 DATA 208,27 
400 DATA 160,1 
410 DATA 177,80 
420 DATA 208,21 
430 DATA 200 
440 DATA 177,80 
450 DATA 208,16 
460 DATA 
470 DATA 
480 DATA 
490 DATA 
460 DATA 24 
470 DATA 165,80 
480 DATA 105,4 
490 DATA 133,299 
500 DATA 165,81 
510 DATA 105,0 
520 DATA 133,230 
530 DATA 76,177,246 



last page of RAM on 

REM JSR 200 

REM BNE OVER 

REM JMP 631 34 

REM JSR 52753 

REM JSR 52388 

REM JSR 54992 

REM SYTZ 247 

REM STAZ 248 

REM TAX 

REM TYA 

REM BNE 0VR2 

REM DEX 

REM DEY 

REM STYZ 80 

REM STXZ 81 

REM LDAIM 173 

REM STAZ 79 

REM LDAIM 96 

REM STAZ 82 

REM JSR 200 

REM CMPIM 44 

REM BNE 0VR3 

REM JSR 194 

REM JSR 62515 

REM INCZ 80 

REM BNE 0VR4 

REM INCZ 81 

REM JSR 79 

REM BNE CHEND 

REM LDYIM 1 

REM LDAIY 80 

REM BNE CHEND 

REM INY 

REM LDAIY 80 

REM BNE CHEND 

24 : REM CLC 

165,80 : REM LDAZ 

105,4 : REM ADCIM 

13 

REM CLC 

REM LDAZ 80 

REM ADCIM 4 

REM STAZ 229 

REM LDAZ 81 

REM ADCIM 

REM STAZ 230 

REM JMP 63153 



your PET) 
check if : or end of line 

jump 'SAVE' if SYS 8000 only 

check if ',' 

analyze arithmetical argument 

check if 0-65535 

'save from' item 

'save from' page 



back up 1 

initialize CHK pointer item 

initialize CHK pointer page 

LDA instruction in 0079 

RTS instruction in 82 

check if ',' before filename 

move code pointer over ' , ' 
get options for "SAVE' 



add 1 to CHK pointer 
look at next CHK code 



check for 0,0,0 



80 
4 



'save to' item 



'save to' page 
complete 'SAVE' 
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CHEND 



CHKNF 



END 



540 DATA 165,81 


REM 


LDAZ 81 


550 DATA 201,31 


REM 


CMPIM ERAM 


560 DATA 210,10 


REM 


BEQ CHKNF 


570 DATA 144,210 


REM 


BCC AGAIN 


580 DATA 32,184,31 


REM 


JSR END 


590 DATA 162,85 


REM 


LDXIM 85 


600 DATA 76,108,195 


REM 


JMP 70028 


610 DATA 165,80 


REM 


LDAZ 80 


620 DATA 201,253 


REM 


CMPIM 253 


630 DATA 144,196 


REM 


BCC AGAIN 


640 DATA 32,184,31 


REM 


JRS END 


650 DATA 160,40 


REM 


LDYIM 40 


660 DATA 76,133,245 


REM 


JMP 62853 


670 DATA 169,13 


REM 


LDAIM 13 


680 DATA 32,234,227 


REM 


JSR 58346 


690 DATA 169,63 


REM 


LDAIM 63 


700 DATA 32,234,227 


REM 


JSR 58346 


710 DATA 169,69 


REM 


LDAIM 69 


720 DATA 32,234,227 


REM 


JSR 58346 


730 DATA 169,78 


REM 


LDAIM 78 


740 DATA 32,234,227 


REM 


JSR 58346 


750 DATA 169,68 


REM 


LDAIM 68 


760 DATA 32,234,227 


REM 


JSR 58346 


770 DATA 96 


REM 


RTS 


780 REM (FORMAT: SYS 8000, INDEX, "FILENAt 



check: 'not found' if last 
look at next if less than 



("?END) NOT FOUND ERROR" 



again if enough room 



("?END) NOT FOUND ERROR" 



"?END" 



After typing and saving normally, type RUN when 
READY. Save "SAVEM" using itself to save itself 
by typing: 

SYS 8000,8000, "SAVE(SYS 8000)" 

when READY., REWIND TAPE #1 and type: 

VERIFY "SAVECSYS 8000)" 



MACHINE LANGUAGE LOAD PROCEDURE 

After SAVEing machine language, you have the 
capability of LOADlng directly if you follow 
these rules. 



Loading machine language before BASIC program: 

LOAD "machine language name" 

NEW 

A=PEEK(247) :B=PEEK(248) 

POKE 134, A :P0KE 135, B 

POKE 1,A :P0KE 2,B (only if USR, not SYS) 

CLR 

Then LOAD BASIC Program. 

Loading machine language from BASIC program: 



IF OK THEN RUN 6 

1 0K=-1 : PRINT "PRESS REWIND ON TAPE #1" 

2 WAIT 519,4,4 : REM wait til stop if play down but not motor 

3 WAIT 59411,8,8 : REM wait til key on cassette pushed 

4 WAIT 59411,8 : REM wait til stop on cassette pushed 

5 LOAD "machine language name" 

6 A=PEEK(247) : B=PEEK(248) 

7 POKE 134, A : POKE 135, B 

8 POKE 1,A : POKE 2,B : REM (only if USR, not SYS) 

9 CLR 

10 REM (BEGIN BASIC PROGRAM, MACHINE LANGUAGE LOADED) 
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HOW GOES YOUR ROM TODAY? 

Harvey B. Herman 

Chemistry Department 

University of North Carolina-Greensboro 

Greensboro, North Carolina 27412 



Everytime I turn on my KIM-system or PET Personal Computer I 
keep my fingers crossed that everything works. So far I have been 
"lucky" and the few failures were patently obvious. However, I 
have been concerned about the possibility of subtle errors 
appearing which, while not obvious, will still cause programs to 
print garbage out without my having inputted garbage. To ease my 
troubled mind, I wrote an assembly language program which 
computes a checksum byte from the data in a specified area of 
memory. The 6502 programs, which I named CHECK, can be used 
to check data in both ROMs and RAMs for erroneous bits. 

The program for a KIM system is shown in Figure 1. It can be 
entered into memory with the KIM monitor program or an 
assembler. With a few minor changes, which I believe are obvious 
by looking at the code, it can be placed practically anywhere in 
memory. The program requires four zero page locations to be 
initialized to the starting and ending locations of the specified 
area. I used locations hex E1, E2 and E3, E4 respectively (low byte 
first) as these were the first free page zero locations in Microsoft 
8K BASIC. The reader may wish to change these locations if it 
interfers with other programs that are frequently used. The KIM 
CHECK program ends with a BRK (break) instruction and will not 
operate properly unless two locations, hex 17FE, 17FF, are 
initialized to 00, 1C, respectively. The BRK instruction, when 
executed will then jump to the start of the KIM monitor and 
among other things, print the value saved in location hex 31D - the 
calculated checksum. Initialization and executation of this 
program can be done with the KIM monitor. The checksum bytes 
which I calculated for two different KIM system ROMs are shown 
in Table 1. 

Several changes are necessary that allow a similar program to work 
on Commodore's PET computer. The modified program is shown in 
figure 2 and is a listing from a cross assembly done on the KIM 
system. The values could be placed in memory with a monitor 
program, if available, or as I did, poked into memory from a BASIC 
program. The latter approach requires a conversion from hex to 
decimal before using the POKE command. Again, as before, four 
locations in page zero need to be initialized. Part of the area 
reserved for the second cassette buffer was used for the program 
(hex 33A-371) and four locations (hex 53-56) in the keyboard buffer 
were used for the page zero locations representing the starting and 
ending locations of the area to be checked. The PET CHECK 
program is designed to be run from BASIC. A call to the USR (user) 
function, ?USR(0), jumps to the checksum program and returns the 
checksum value. The program has two entry points. It can be used 
to calculate checksums (see Table 1) for the BASIC interpreter 
and/or the operating system (both are in ROM) or BASIC programs 
which have just been loaded or saved. The latter use somewhat 
obviates the need to use the VERIFY tape command after a load. 
This can save considerable time particularly if long programs are 
loaded. Alternate entry points are specified by POKEing locations 
1 and 2 to decimal 58 and 3 for program checks and to decimal 82 



and 3 for ROM checks, respectively. The starting and ending 
locations in page zero are automatically set by the program for 
program checks but must be specified for ROM checks. 



Further details on the use of each program is shown in Table 2. The 
checksums calculated are the exclusive OR of all the bytes 
between the starting and ending addresses, inclusively. Changing 
as little as one bit in the sequence will give a different value for the 
checksum. There is a finite probability that when extensive errors 
are encountered the checksum calculated would fortuitously be 
the same, since only 256 different 8 bit checksums are possible. 
However, in that case the errors would probably not be subtle and 
you would not be fooled. Whenever the checksums for the ROMs 
change it would be prudent also to run a diagnostic test on the 
6502 MPU before blaming the ROM. Since programs like that are 
sadly lacking I will leave it as an exercise for the reader. A program 
and article to that effect would be greatly appreciated by the 
author for one, and I believe most of 6502 personal computing 
fraternity. 



KIM ROMs (Serial numbers 1988 and 693 D 
Locations (Hex) Checksum (Hex) 



1800-1BFF 
1C00-1FFF 
1800-1FFF 



F5 
F8 
0D 



KIM CHECK Program. Example for 1800-1FFF. 
After placing program from Figure 1 into 
memory 



0300 AD G 

KIM 

03 1D (CHECKSUM) 



KIM 




17FE 


0. 


17FF 


1C 


E1 


0. 


E2 


18 


E3 


FF 


E4 


1F 
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PET ROMs (Serial numbers 10252 & 20549) 
Locations (Hex) Log. (Dec, Inv.) Check 



C000-CFFF 
D000-DFFF 
E000-E777 
F000-FFFF 



0,192-255,207 
0,208-255,223 
0,224-119,231 
0,240-255,255 



189 
87 
26 
92 



PET CHECK Program. After poking program 
from Figure 2 into memory 



Program Checks 

POKE 1,58 
POKE 2,3 



ROM Checks 

(Example for C000- 
CFFF) 



LOAD "program name" POKE 1,82 

or POKE 2,3 

SAVE "program name" POKE 83,0 



POKE 84,192 
POKE 85,255 



?USR (0) 

(checksum returned 
depends on program) POKE 86,207 

?USR (0) 
189 (Checksum 
returned) 



033A 




1 


I 


KIM 


CHECKSUM PR0GRAM 


033A 




2 


1 


HARVEY B. HERMAN 


033A 




3 


1 


INITIALIZE S17FE/FF 


033A 




4 


% 


10 0/1 C S0 BRK WORKS 


OOE1 




5 




♦«$E1 


OOE1 


0000 


6 


START 


.W0RD 


00E3 


0000 


7 


END 


.WORD 


0300 




8 




*=$300 


0300 




9 


1 


ENTER HERE FOR 


0300 




10 


1 


CALCULATI0N 0F 


0300 




11 


1 


CHECKSUM BETWEEN 


0300 




12 


I 


START AND END. 


0300 




13 


% 


ANS 


DISPLAYED L0C 31 


0300 


AOOO 


14 




LDY 


#0 


0302 


B1E1 


15 




LDA 


< START) #Y 


0304 


E6E1 


16 


L00P 


INC 


START 


0306 


D002 


17 




3NE 


CHECK 


0308 


E6E2 


18 




INC 


START* 1 


030A 


51E1 


19 


CHECK 


E0R 


C START) #Y 


030C 


A6E4 


20 




LDX 


END+1 


030E 


E4E2 


21 




CPX 


START* 1 


0310 


D0F2 


22 




BNE 


L00P 


0312 


A6E3 


23 




LDX 


END 


0314 


E4E1 


24 




CPX 


START 


0316 


DOEC 


25 




BNE 


L00P 


0318 


801003 


26 




STA 


♦♦5 


031B 


00 


27 




BRK 




031C 




28 




• END 



Figure 1 
KIM Checksum Program. 
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033A 




1 


J 


PET 


CHECKSUM PR0GRAM 


033A 




2 


J 


HARVEY B. HERMAN 


00b3 




3 




START=$53 


0055 




4 




END- 


:$55 


033A 




5 


# 


*»$33A 


033A 




6 


1 


ENTER HERE T0 CHECK 


033A 




7 


1 


BASIC PR0GRAMS AFTER 


033A 




8 


I 


L0AD 0R SAVE* 


033A 


A900 


9 


PR0G 


LDA 


#0 


033C 


8553 


10 




STA 


START 


033E 


A904 


11 




LDA 


#4 


0340 


8554 


12 




STA 


START* 1 


0342 


A5E6 


13 




LDA 


SE6 


0344 


8556 


14 




STA 


END+1 


0346 


A5E5 


15 




LDA 


SE5 


0348 


38 


16 




SEC 




0349 


ED7103 


17 




SBC 


TW0 


034C 


B002 


18 




BCS 


SKIP 


034E 


C656 


19 




DEC 


END+1 


0350 


8555 


20 


SKIP 


STA 


END 


0352 




21 


I 


ENTER HERE T0 CHECK 


0352 




22 


i 


ANY 


L0CATI0NS IN 


0352 




23 


I 


MEM0RY. INITIALIZE 


0352 




24 


I 


$53- 


$56 FIRST. 


0352 


A000 


25 


R0M 


LDY 


#0 


0354 


B153 


26 




LDA 


< START) *Y 


0356 


E653 


27 


L00P 


INC 


START 


0358 


D002 


28 




BNE 


CHECK 


035A 


E654 


29 




INC 


START* 1 


035C 


5153 


30 


CHECK 


E0R 


C START) *Y 


035E 


A656 


31 




LDX 


END+1 


0360 


E454 


32 




CPX 


START* 1 


0362 


D0F2 


33 




BNE 


L00P 


0364 


A655 


34 




LDX 


END 


0366 


E453 


35 




CPX 


START 


0368 


DOEC 


36 




BNE 


L00P 


036 A 


A8 


37 




TAY 




036B 


A900 


38 




LDA 


#0 


036D 


2078D2 


39 




JSR 


$D278 


0370 


60 


40 




RTS 




0371 


02 


41 


TW0 


.BYTE 2 


0372 




42 




• END 








Figure 


2 








PET Checksum Program 
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HIGH-RESOLUTION PLOTTING FOR THE PET 

John R. Sherburne 

206Coddard 

White Sands Missile Range, NM 88002 



The PET Machine Language Monitor gives PET users a greatly ex- 
panded ability to devleop and use assembly language programs. 
While early buyers of PET have had to wait a while for the Monitor, 
the ability to save and load machine language programs directly to 
and from cassette is well worth the wait. Access to machine 
language has always been available through the POKE command, 
but translating op codes and addresses from hex to decimal and 
back is tedious. Also, the need to load a program via another BASIC 
program or via the keyboard is wasteful and time-consuming. PET's 
Monitor allows an assembly language program to be saved and 
loaded as easily as the BASIC program. Better yet, an assembly 
language program can be written to reside in an unused section of 
memory such as the second cassette buffer. A BASIC program can 
then be loaded in the usual manner and can use the machine 
language program as a subroutine. 

One way that the use of a resident machine language routine can be 
a big help is in implementing high-resolution plotting on the PET. 
High-resoltuion plotting, in effect, expands PET's 40 X 25 character 
display to 80 X 50. To do so, each character is divided into quarter 
characters. The four basic quarter characters are displayed by 
pressing "SHIFT" and "," or ";" or "K" or ">". There are a total of 
sixteen possible combinations of these four quarter characters 
which can be used to produce a high-resolution plot. The process of 
producing such a plot in BASIC, however, is complex and slow. A 
machine language subroutine, on the other hand, can make the 
plotting process quite simple. For example, the Lissajous figure in 
* Figure 1 was plotted with this program: 

10 POKE 1,58:P0KE 2,3:PRINT (clr)" 

20 DELTA=2*#7900 

30 P=3:Q=4 

40 FOR 1=0 TO 900 

50 THETA=DELTA*I 

60 X=INT(39.5+38*C0S(P*THETA)) 

70 Y=INT(25.5+24*SIN(0*THETA)) 

80 POKE 81,X:P0KE 82, Y:A=USR(0) 

90 NEXT I 

100 GET A$:IF A$="" THEN 100 

The machine language routine is called in line 80 with the USR 
command after first POKEing the X and Y coordinates to be plotted 
in memory locations 81 and 82, respectively. The values of P and Q 
in line 30 determine the shape of the figure. The machine language 
plotting routine used by the program is listed below. The procedures 
for using it are: 

LOADING - The program is initially loaded into the second cassette 
buffer beginning in location J033A using the Monitor. The program 
is saved on cassette with the command: S,01,HI-RES,033A,03CA. 
The value $03CA is the endng address plus one. Once saved, the 
program can be reloaded into the cassette buffer with the normal 
command: LOAD"HI-RES". 

BASIC INTERFACE - With HI-RES loaded, the BASIC driver program 
can be loaded from cassette using normal procedures or the "NEW" 
command can be given and a new BASIC program entered from the 
keyboard. Before HI-RES can be called, the starting address, $033A, 
must be entered in memory locations 0001 and 0002. This was done 
in line 10 of the program above. HI-RES can now be called by the 
USR command. Before each call, the X and Y coordinates must be 
POKED into decimal addresses 81 and 82, respectively. Valid coor- 
dinate values run from to 79 in the X direction and from to 49 in 
the Y direction. Position 0, is in the upper left-hand corner of the 
screen. 



OTHER - If zero is used as the argument of the USR command, the 
plotting routine will overwrite any character already on the screen. 
If a value other than zero is used any non-plot character already on 
the screen will be left there. Thus axes and text can be preprinted on 
the screen and a graph later plotted without distrubing the preprin- 
ted data. 

RECREATIONAL GRAPHICS FOR PET 

There are probably a lot of practical uses for the PET high-resolution 
graphics program described above but I haven't had time to find 
them yet. Instead, I have spent countless hours in front of the 
display watching PET draw intriguing designs for which there is 
relatively little practical purpose. My addiction started simply 
enough. To test the HI-RES plotting routine, I wrote a program to 
draw an elipse using the formula: X=P*COS(0); Y = Q*SIN(©). 
Pleased with the result, I added a FOR loop to vary the values of P 
and Q and produced the family of elipses shown in Figure 1 . I didn't 
realize it but I had embarked on a project which would take every 
free moment for the next two weeks. 

The next step was to modify the formula so that a flower rather than 
an elipse was produced. The new formula was: 



X=R*CCS(8); Y=R*SIN(8) where R=SIN(N*e) 
If N is odd, a flower with N leaves is 
produced; if N is even, the flower will 
have 2N leaves. Figure 2A is an eight 
leaved flower using the formula 
R=SIN(4*B). Figure 2B uses an alter- 
nate forumul: R=C0S(4*B). As with the 
ellipse, the next step was to produce a 
family of flowers (Figure 2C) by adding 
a FOR loop to vary the size of the 
flower and to alternate between the two 
formulas . 

By now I was completely hooked. I dug into a dusty book of 
mathematical formulas and found two rather obscure figures, the 
epicycloid and hypocycloid. Best known from the toy "Spirograph", 
the epicycloid is formed by tracing the path of a point on the cir- 
cumference of a circle as it is rolled around the outside of a second 
circle. The hypocycloid is formed when one circle is rolled around 
the inside of the other. The formulas are: 



Epicycloid: 

X=(P+Q)*C0S(AN)+0*C0S(P+Q)*AN/Q) 
Y=(P+Q)*SIN(AN)+Q*SIN(P+Q)*AN/Q) 

Hypocycloid: 

X=(P-Q)*CCS(AN)+Q*C0S(P-Q)*AN/Q) 
Y=(P-Q)*SIN(AN)-Q*SIN(P-Q)*AN/Q) 



*Note: Figure 1 on cover 
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In both formulas P represents the radius of the stationary circle and 
Q the radius of the rolling circle. A typical epicycloid is shown in 
Figure 3. To plot these more complex figures a minor technical 
problem had to be solved. Many of the larger "cycloids" require 
more than one revolution of the rolling circle around the stationary 
circle. To avoid either stopping too soon or running too long, I had 
to add a routine to compute the number of revolutions required for 
the full figure. Since the rolling circle makes P/Q Revolutions in one 
circuit of the stationary circle, a complete figure is made when the 
rolling circle turns the number of times equal to the first integer 
multiple of P/Q. That multiple, N, times 2 iris the number of points 
or cusps in the cycloid. For convenience I print the number of cusps 
in the corner of the display. An eight cusp hypocycloid is shown in 
Figure 4. With both types of cycloid P and Q can be varied to 
produce a variety of figures. To avoid creating a figure too large to 
display, P must be £24 for a hypocycloid and P + 2*Q -24 for an 
epicycloid. 



As a final fillip, a third parameter can be added to the cycloid 
programs. Rather than trace a point on the circumference of the 
rolling circle, a point at a distance R from the center of the circle is 
traced. The value of R can be larger or smaller than Q. If R is larger 
than Q the formulas for determining the largest figure which the 
display can accomodate are: epicycloid, P + Q + R S 24; 
hypocycloid, P + R-QS24. 



HI-RESOLUTION 

BY 30HN R. SHERBURNE 
FEBRUARY 1979 



03 3A 






ORG 


$033A 




033A A9 


00 


START 


LDAIM 


$00 


INITIALIZE 


033C 85 


53 




STA 


$0053 




033E 85 


56 




STA 


$0056 




0340 38 






SEC 






0341 A5 


51 




LDA 


$0051 




0343 E9 


4F 




SBCIM 


$4F 


CHECK FOR 


0345 30 


03 




BMI 


CHECK 




0347 E6 


54 




INC 


$0054 




0349 60 






RTS 






C34A 38 




CHECK 


SEC 




CHECK FCR 


034B A5 


52 




LDA 


$0052 




034D E9 


31 




SBCIM 


$31 




C34F 30 


03 




BMI 


HALF 




0351 E6 


55 




INC 


$0055 




0353 60 






RTS 






0354 46 


51 


HALF 


LSR 


$0051 




0356 90 


02 




BCC 


N0CAR 




0358 E6 


56 




INC 


$0056 




035A 46 


52 


N0CAR 


LSR 


$0052 




035C 90 


04 




BCC 


N0CRY 




035E E6 


56 




INC 


$0056 




0360 E6 


56 




INC 


$0056 


DIVIDE X A 


0362 A9 


01 


N0CRY 


LDAIM 


$01 


DETERMINE 


0364 A4 


56 


LOOP 


LDY 


$0056 


AND PLACE 


0366 F0 


06 




BEQ 


MATCH 




0368 0A 






ASLA 






0369 C6 


56 




DEC 


$0056 




03 6B 40 


64 03 




JMP 


LOOP 





VALID Y 



AND Y BY 2 
QUADRANT OF NEW 



POINT 
IN $0056 
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036E 85 56 


MATCH STA 


$0056 


0370 06 52 


ASL 


$0052 


0372 06 52 


ASL 


$0052 


0374 06 52 


ASL 


$0052 


0376 A5 52 


LDA 


$0052 


0378 06 52 


ASL 


$0052 


03 7A 26 53 


ROL 


$0053 


037C 06 52 


ASL 


$0052 


03 7E 26 53 


ROL 


$0053 


0380 65 52 


ADC 


$0052 


0382 85 52 


STA 


$0052 


0384 A5 53 


LDA 


$0053 


0386 69 00 


ADCIM 


1 $00 


0388 85 53 


STA 


$0053 


038A A5 52 


LDA 


$0052 


038C 65 51 


ADC 


$0051 


03 8E 85 52 


STA 


$0052 


0390 90 02 


BCC 


NOCHG 


0392 E6 53 


INC 


$0053 


0394 18 


NOCHG CLC 




0395 A 9 80 


LDAIM 


$80 


0397 65 53 


ADC 


$0053 


0399 85 53 


STA 


$0053 


039B A0 10 


LDYIM 


$10 


039D A2 00 


LDXIM 


$00 


039F Al 52 


LDA IX 


$0052 


03A1 88 


CHARAC DEY 




03A2 D9 BA 03 


CMPY 


TABLE 


03A5 FO 09 


BEQ 


FOUND 


03A7 CO 00 


CPYIM 


$00 


03A9 DO F6 


BNE 


CHARAC 


03AB A6 Bl 


LDX 


$00B1 


03AD FO 01 


BEQ 


FOUND 


03AF 60 


RTS 




03B0 98 


FOUND TYA 




03B1 05 56 


ORA 


$0056 


03B3 A8 


TAY 




03B4 B9 BA 03 


LDAY 


TABLE 


03B7 81 52 


STAIX 


$CC52 


03B9 60 


RTS 




03BA 20 


TABLE = 


$20 


03BB 7E 


— 


$7E 


03BC 7C 


- 


$7C 


03BD E2 


= 


$E2 


03BE 7B 


- 


$7B 


03BF 61 


"Z. 


$61 


03C0 FF 


- 


$FF 


03C1 EC 


~ 


$EC 


03C2 6C 


r 


$6C 


03C3 7F 


= 


$7F 


03C4 El 


r 


$E1 


03C5 FB 


= 


$FB 


03C6 62 


= 


$62 


03C7 FC 


■z. 


$FC 


03C8 FE 


= 


$FE 


03C9 AO 


= 


$A0 



MULTIPLY Y BY DECIMAL 40. 
(NO. CHARACTERS PER LINE) 



ADD X TO Y * 40. 



LOOK UP CHARACTER IN SCREEN 
POSITION X+Y*40 IN TABLE 



IF NOT IN TABLE, CHECK $B1 FOR 
USR ARGUMENT 



COMPUTE NEW CHARACTER 

STORE NEW CHARACTER ON SCREEN 



TABLE CONTAINS ALL SIXTEEN POSSIBLE 
PLOT CHARACTERS 
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1 POKE 1,58: POKE 2,3 FIGURE 1 

10 PRINT "(clr)" 

20 FOR R=4 TO 16 STEP 4 

30 P=38-R 

40 Q=8+R 

50 F=2« #7300 

60 FOR 1=0 TO 300 

70 AN=F«I 

80 X=INT(39.5+P*COS(AN)) 

90 Y=INT(24.5+Q*SIN(AN)) 

100 POKE 81,X:P0KE 82,49-Y:A=USR(0) 

110 NEXT I 

120 NEXT R 

130 GET G$:IF G$= IMI GOTO 130 




FIGURE 2B 



(Changes to 2A only) 
55 R=P*COS(N*AN) 



FIGURE 2A 

1 POKE 1,58: POKE 2,3 

10 PRINT "(clr)" 

20 P=24:N=4 

30 F=2«7T/600 

40 FOR 1=0 TO 600 

50 AN=I«F 

55 R=P*SIN(N»AN) 

60 X=INT(R»COS(AN)+39.5) 

70 Y=INT(R«SIN(AN)+24.5) 

80 POKE 81,X:P0KE 82,49-Y:A=USR(0) 

90 NEXT I 

100 GET G$:IF G$= ,MI GOTO 100 
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1 

10 
20 
30 
40 
50 
60 
70 
80 
90 



2,3 



FIGURE 3 



POKE 1,58: POKE 

PRINT "(clr)»» 

P=9;Q=15/2 

F=2« 7T/250 

FOR 1=0 TO 1250 

AN=I»F 

X=(P+Q)«COS(AN)+Q*COS((P+Q)»AN/Q) 
Y=(P+Q)*SIN(AN)+Q*SIN((P+Q)»AN/Q) 
X=INT(X+39.5) :Y=INT(Y+24.5) 
POKE 81,X:P0KE 82,Y:A=USR(0) 

100 NEXT I 

110 GET G$: IF G$="" GOTO 110 




FIGURE 2C 




(Changes to 2B only) 


20 


N=4 


31 


K1 = 1 


32 


FOR K2=0 TO 20 STEP 4 


33 


P=24-K2 


34 


K1=K1«-1 


55 


R=P»SIN(N*AN) 


56 


IF KKO THEN R=P*C0S(N*AN) 




1 POKE 1,58:POKE 2,3 

10 PRINT "(clr)» 

20 P=24:Q=9 

22 DT=300 

24 F=2* rr/DT 

28 FOR 1=1 TO 25 

30 DL=P*I/Q-INT(P«I/Q) 

32 IF DL<. 00001 GOTO 36 FIGURE 4 

34 NEXT I 

36 PT=I*P/Q 

38 PRINT "(home)";INT(PT+.5) 

40 FOR J=0 TO I«DT 

50 AN=J*F 

60 X=(P-Q)«COS(AN)+Q*COS((P-Q)«AN/Q) 

70 Y=(P-Q)«SIN(AN-Q*SIN((P-Q)*AN/Q) 

80 X=INT(X+39.5):Y=INT(Y+24.5) 

90 POKE 81,X:P0KE 82,Y:A=USR(0) 

100 NEXT J 

110 GET G$:IF G$= 1 "* GOTO 110 
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"THANKS FOR THE MEMORIES" 
A PFT MACHINE LANGUAGE MEMORY TEST 

Harvey B. Herman 

Chemistry Department 

University of North Carolina at Greensboro 

Greensboro, North Carolina 27412 



Most people have surely heard the old Bob Hope theme song, 
"Thanks for the Memories." Whenever I hear it, I remind myself 
how much the explosion in personal computing is due to 
inexpensive memory chips. Several years ago I paid about $64.00 
for a 4x16 (64 bits) static RAM by Intel. Today a 1x1024 static 
memory costs less than $2.00 - quite a hefty reduction in the per 
bit price. 

That's the good news. The bad news is that all electronic parts 
occassional^ fail and failures need to be diagnosed and repaired. 
The cheaper memory becomes the more we add and the harder 
and more time consuming it becomes to identify failed 
components. Diagnostic programs are one answer to this problem. 
Recently MICRO (7:25, Oct-Nov, 1978) published a PET memory 
test program written in BASIC. Execution time to test even about 
200 bytes was quite long - about 1000 seconds. Clearly, a much 
faster test is necessary for even the smallest PET computers. If 
external memory is added the need for a much faster test becomes 
even more urgent. 

An obvious way to increase the speed of a program is to write it in 
machine language. BASIC, a higher level of language, is 
notoriously slow especially when it must interpret each statement 
on every encounter. Writing faster machine language programs is 
facilitated with the help of a monitor program. PET owners have 
finally been given a free monitor program as part of their original 
purchase. This program has some nice features but the 
documentation is minimal. (How many times have we heard that 
song.) Important locations and subroutines are either not 
described at all or described sketchally so thfe program's usefulness 
to the average user is impaired. 

However, not to worry. I have been experimenting with the 
monitor program by a combination of disassembly and trial and 
error have identified some of the missing links. You might guess 
from the title of this article that the purpose is to describe a fast 
machine language memory test. That is correct, but the other 
unspoken and possibly more important purpose is to teach the 
reader how better to use Commodore's machine language monitor 
program. 

Table 1 summarizes important locations in Commodore's monitor. 
It is an expanded version of the table in their manual. For readers 
with access to the PET Gazette's LOMON program I have also 
included locations in that monitor which, incidentally, includes a 
disassembly in the latest version. 

A large variety of machine language programs, including memory 
test programs, have appeared for other 6502 based systems. Jim 
Butterfield in "The First Book of KIM" (pp. 122-123) described a 
very fast machine language memory test program using a newly 
developed algorithm. I picked this particular KIM program for my 
first try at a PET translation program. Other programs developed 
for KIM (except when specifically hardware dependent) can be 
similarly translated. Our PETs will be more powerful than ever 
before as we can take already developed machine language 
software (the hard part), translate the programs for the PET and 



poke them into memory with the monitor (the easy part). 

An inspection of the original KIM memory test program reveals 
some obvious PET incompatabilities. The KIM program originates 
at location zero and uses several KIM-specific locations (e.g., 1C4F 
as an exit to the KIM monitor). As a first pass we must relocate the 
program, change external jumps and substitute other page 
locations. Table 2 shows the changes I made and gives some of my 
reasoning. Some decisions are self evident. For example, the 
second cassette buffer (starting at 033A) is a common place to 
store small PET programs as long as a second cassette is not being 
used. Other changes take advantage of specific features of the PET 
monitor. For example, the program counter (actually locations 22 
and 23 as LOW and HI) is printed out after an exit to the monitor at 
location 0447. While the KIM monitor works similarly, the exit 
point and page zero locations printed are different and must be 
converted. 

The translated program is executed using the CO command with a 
specified address (C 033A). After running the program several 
times, I became convinced it could be improved. Modifying a well 
documented program (as was the original) is, of course, much 
easier than writing one in the first place. The following changes 
were made: 

1. Repeat the program continually until a key is pressed. 
Execution is very fast and one pass is not an adquate test. 

2. Output an asterisk after each pass. It is nice to know the 
program is doing something. 

3. Take the processor out of decimal mode, or hex arithmetic 
will not be done properly. 

4. Input the beginning and ending page locations as a conven- 
ience in the GO step. 

The last two modifications were easy to do before beginning 
execution. However, I occasionally forgot and felt it was better to 
insure it was done properly rather than to take a chance that the 
monitor had to be reloaded or BASIC restarted. 

This version of the memory test program is also run with the GO 
command, with a specified address. The beginning and ending 
page location, separated by commas, are typed after the address 
(G 033A OA,1F). The program cycles until a faulty memory 
location is found which is printed as if it was the program counter 
or until any key is pressed. As advertised it is very fast a few second 
per pass for an 8 K PET (testing pages OA to 1F). A continuing 
outpouring of asterisks is very comforting. 

My colleagues and I have found bad (or slow) memory chips with 
the original or modified test program on both KIM and PET 
computers. Happily, this does not happen very often; my hope is it 
won't happen to you. But if it does you will be prepared if you get 
this program running ahead of time. Good luck! 
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PET MEMORY TEST 







BY HARVEY B. 


HERMAN 






FEBRUARY 1979 








ORG 


$033A 






BEGIN 


* 


$0023 






END 


* 


$0024 






POINTL 


* 


$0019 






POINTH 


1 * 


$001A 






FLAG 


* 


$001B 






FLIP 


* 


$001C 






MOD 


* 


$001D 






PRINT 


* 


$FFD2 






GET 


* 


$FFE4 






INPUT 


* 


$FFCF 






EXIT 


* 


$0447 






ERROR 


* 


$049B 






GTBYT 


* 


$0656 


033A D8 




START 


CLD 




033B 20 


CF FF 




JSR 


INPUT 


033E C9 


20 




CMPIM 


$20 


0340 FO 


03 




BEQ 


ABLE 


0342 4C 


9B 04 




3MP 


ERROR 


0345 20 


56 06 


ABLE 


JSR 


GTBYT 


0348 85 


23 




STA 


BEGIN 


034A 20 


CF FF 




JSR 


INPUT 


034D C9 


2C 




CMPIM 


$2C 


034F FO 


03 




BEQ 


BAKER 


0351 4C 


9B 04 




JMP 


ERROR 


0354 20 


56 06 


BAKER 


DSR 


GTBYT 


0357 85 


24 




STA 


END 


0359 A9 


00 


LOOP 


LDAIM 


$00 


035B A8 






TAY 




03 5C 85 


19 




STA 


POINTL 


035E 85 


IB 


BIGLP 


STA 


FLAG 


0360 A2 


02 




LDXIM 


$02 


0362 86 


ID 




STX 


MOD 


0364 A5 


23 


PASS 


LDA 


BEGIN 


0366 85 


1A 




STA 


POINTH 


0368 A6 


24 




LDX 


END 


036A A5 


IB 




LDA 


FLAG 


036C 49 


FF 




EORIM 


$FF 


03 6E 85 


1C 




STA 


FLIP 


0370 91 


19 


CLEAR 


STAIY 


POINTL 


0372 C8 






INY 




0373 DO 


FB 




BNE 


CLEAR 


0375 E6 


1A 




INC 


POINTH 


0377 E4 


1A 




CPX 


POINTH 


C379 BO 


F5 




BCS 


CLEAR 


037B A6 


ID 




LPX 


MOD 


037D A5 


23 




LDA 


BEGIN 


03 7F 85 


1A 




STA 


POINTH 



SPACE CHARACTER? 



COMMA ? 
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C381 , 


A5 


IB 




FILL 


LDA 


FLAG 




0383 


CA 






TOP 


DEX 






0364 


10 


04 






BPL 


SKIP 




0386 


A2 


02 






LDXIM 


$02 




0388 


91 


19 






STAIY 


POINTL 




03 8A 


C8 






SKIP 


INY 






03 8B 


DO 


F6 






BNE 


TOP 




03 8D 


E6 


1A 






INC 


POINTH 




03 8F 


A5 


24 






LDA 


END 




0391 


C5 


1A 






CMP 


POINTH 




0393 


BO 


EC 






BCS 


FILL 




0395 


A5 


23 






LDA 


BEGIN 




0397 


85 


1A 






STA 


POINTH 




0399 


A6 


ID 






LDX 


MOD 




03 9B 


A5 


1C 




POP 


LDA 


FLIP 




03 9D 


CA 








DEX 






03 9E 


10 


04 






BPL 


SLIP 




03A0 


A2 


C2 






LDXIM 


$02 




03A2 


A5 


IB 






LDA 


FLAG 




03 A 4 


Dl 


19 




SLIP 


CMPIY 


POINTL 




03A6 


DO 


24 






BNE 


OUT 




03A8 


C8 








INY 






03A9 


DO 


FO 






BNE 


POP 




03AB 


E6 


1A 






INC 


POINTH 




03AD 


A5 


24 






LDA 


END 




03AF 


C5 


1A 






CMP 


POINTH 




03B1 


BO 


E8 






BCS 


POP 




03B3 


C6 


ID 






DEC 


MOD 




03B5 


10 


AD 






BPL 


PASS 




C3B7 


A5 


IB 






LDA 


FLAG 




03B9 


49 


FF 






EORIN 


1 $FF 




03BB 


30 


Al 






BMI 


BIGLP 




03BD 


84 


19 






STY 


POINTL 




03BF 


A 9 


2A 






LDAIM $2A ASTERISK CHARACTER 


* 


03C1 


20 


D2 


FF 




JSR 


PRINT 




03C4 


20 


E4 


FF 




3SR 


GET 




03C7 


FO 


90 






BEQ 


LOOP 




C3C9 


4C 


47 


04 




JMP 


EXIT 




03CC 


84 


19 




OUT 


STY 


POINTL 




03CE 


: 4C 


47 


04 




OMP 


EXIT 








! 


Proqram Notes 







GTBYT Change to $0658 for LOMON 

033A Clear decimal mode to insure arithmetic correct 

033E Compare with space character 

033B - 0358 Input from screen: space, byte (2 characters), comma and byte. 

Store byte in beain and end page locations. 
0359 - 03BE Memory test program proper. Original author: Jim Butterfield. 
03BF - 03CB Print *, check for key press: 

no - repeat test 

yes - exit to monitor and print register buffer 
03CC - 03D0 Abnormal exit to monitor. Program counter has address of fault, 
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MONITOR LOCATIONS 
Table 1 



Start of monitor 040F 

Exit to monitor 0447 
Break vector LOW 02 1B Normally 27 
Break vector HI 02 1C Normally 04 
Machine register storage buffer: 

Program counter LOW 0019 

Program counter HI 001 A 

Status register 00 1B 

Accumulator 00 1C 

X-index register 00 1D 

Y- index register 00 1E 

Stack pointer 00 1F 

Operating System calls: 

Output byte (from A) FFD2 

Input byte (left in A) FFCF 

Get byte FFE4 



COMMODORE 

Output CR 04F2 

Output space 063A 

Output byte as 2 hex 0613 

Input byte as 2 hex 065E 

ASCII to hex (from A) 0685 
Output? and wait for new 

command 049B 

Input 2 bytes as 4 hex 064F 
(LOW in loc. 11, HI in 12) 



The registers are initialized to the 
value in these locations after the G 
command. After the break instruction 
(and break vector set to 0427) these 
locations will contain the final 
values of the registers. 



(loc 260: keyboard, 1 screen) 
(A-0 no key depressed otherwide 
A- character) 

L0M0N (PET Gazette) 
04F2 
063B 

0613 
0660 

0687 



049B 
0651 



KIM-PET EQUIVALENCES FOR THE MEMORY TEST PROGRAM 

Table 2 





ZW 


BEGIN 


0000 


END 


0001 


P0INTL 


00FA 


P0INTH 


00FB 


FLAG 


0070 


FLIP 


0071 


MOD 


0072 


EXIT 


1C4F 


START 


0002 



PET 


NOTES, 


0023 


first two unused zero 


0024 


page locations 


0019 


printed as PC location 


001A 


on exit 


001B 


printed as SR on exit 


001C 


printed as A on exit 


001D 


printed as X on exit 


0447 


exit to monitor-print registers 


033A 


start of second cassette 




buffer-well protected if 




device not used. 
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LIFESAVER 

by J. Stelly 

10918 Dunvegan Way 

Houston, TX 77013 



Is LIFE passing you by; does it progress so quickly than there is 
little time to enjoy it? Well, fear not-the LIFESAVER is here. 
Though time marches on, now you are in control. If you got "LIFE 
For Your PET" from Dr. Frank H. Covitz (The Best of Micro, p.65), 
LIFE moves along at a pretty good clip. LIFESAVER is a BASIC 
program that complements and provides some enhancements to 
Dr. Covitz machine language routines. 

LIFESAVER provides a convenient grid for setting up cellular 
patterns, permits saving and loading of patterns on the built in 
cassette unit, and gives complete control of the time interval 
between generations. You may even single step through the LIFE 
sequences. 

Commodore is supposedly mailing all owners of early model PET 
units the TIM monitor on cassette, so I will assume its availability 
in this discussion. It ain't the best monitor in the world, but it does 
allow you to load machine language programs directly from the 
cassette without any special loader routines. This does not exclude 
other methods the reader may have at his (or her) disposal if TIM is 
not available. 

A single modification to Dr. Covitz program is required before it 
can be used with LIFESAVER. Location 191D (16) should be 
changed to read: 

191D 60 RTS 

When this change is made the program may be entered at 
190A(16) e.g. SYS(6410). If the TIM monitor is used, simply do a 
hex dump of the machine language listing and save the program 
on tape using the instructions given in the manual. 

Before loading LIFE (Dr. Covitz program) or LIFESAVER (by yours 
truly) from cassette, I recommend the following command be 
executed: 

POKE 134,0:POKE 135,24 

This lowers the BASIC boundary and prevents conflicts between 
the two programs. The regular BASIC limit can later be reinstated 
by POKE 135,32. It is also a good idea to load LIFE before 
LIFESAVER is loaded. This prevents the data pointer from getting 
initialized to the wrong location. 

It may be possible to eliminate lines 3015 and 3035 from the BASIC 
listing, if you have a relatively late model PET. These lines are 
necessary for the older units that have a problem with writing file 
headers and cassette motor start/stop control. My unit was 
delivered in Sept. '78 and I was able to eliminate these lines. 

Assuming that both LIFE and LIFESAVER have successfully been 
loaded, you may begin entering your favorite cell patterns. Please 
refer to Dialog 1 (human inputs are underlined) to see how this is 
done. After the grid is printed simply press the 'RETURN' key and 
enter your pattern anywhere in the grid area using the cursor keys 
and the dot (.) symbol above the Q key. After you've created the 
desired pattern press the 'HOME' key and the 'RETURN' key in 



succession. This neat little trick returns control to the LIFESAVER 
routine without having to explicitly key in the command 'GOTO 
1000'. After the PET has saved the pattern internally the user then 
has the options to save it on tape, have the computer generate 
LIFE patterns as described in Dr. Covitz article, or scrap it and 
input a new pattern. 

The options are relisted after the execution of any LIFESAVER 
command. Examples on exercising the different options are given 
in the remaining dialogs. 

LIFESAVER should relieve the user from the tedium of having to 
manually reenter a LIFE pattern every time it is desired to run it. It 
should also encourage the user to experiment with various LIFE 
forms, some of which are quite dazzling. 



DIALOG 1 



RUN 



LIFE 

PLEASE CHOOSE AN OPTION 

1. CREATE A PATTERN 

2. RUN LIFE GENERATOR 

3. LOAD A PATTERN FROM CASSETTE 

4. SAVE A PATTERN ON CASSETTE 

OPTION NUMBER ? 1^ ( RETURN ) 

(SCREEN CLEARS, THEN ...) 
GOTO 1000 ? 



(At this point the user hits the 
RETURN key and proceeds to input a 
cell pattern.) 

GOTO 1000 ? 



READY 


• 


• 










•• 

• 


* • 










• 


«•• 









(With the desired pattern on the CRT 
the user presses the HOME and RETURN 
keys to resume program execution.) 

STORING CELL PATTERN 

(After a slight delay the computer 
again responds with the option list.) 
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DIALOG 2 



DIALOG 3 



LIFE 



LIFE 



(Option List) 



(Option list) 



OPTION NUMBER ? 2 ( RETURN ) 

(Screen clears .„.) 

HOW MANY GENERATIONS ? ]_ 
DEVELOPMENT RATE 
0: SINGLE STEP VIA (G) KEY 
1-99: INTERMEDIATE RATES 
100:MAX (255 GENERATION LIMIT) 

RATE ? 75 

(The computer proceeds to display 
generations sequentially at the 
specified rate. The larger the 
numerical value of the rate the 
faster the generations are produced. 
A rate of meanc that only one 
generation is produced at a time. 
The G key must be pressed to obtain 
subsequent generations.) 



OPTION NUMBER ? 4 

(Screen clears ...) 

HOW MANY 

PATTERN NAME ? CHESIRECAT ( RETURN ) 

(Pattern is saved and the option 
list is printed.) 

NOTE: In the following BASIC listing 
the lower case abbreviations stand for 
cursor control keys and have the 
following meaning: 

clr = clear screen 
home = home up 
cd = cursor down 
s = space key 



LISTING 

1 REM LIFESAVER 

2 REM BY JAMES W. STELLY 

3 REM POKE 135,24 BEFORE USING 
100 DIM A$(25) 

110 PRINT "clrLIFE": PRINT 

120 PRINT "PLEASE CHOOSE AN OPTION:" :PRINT 

130 PRINT "1. CREATE A PATTERN" 

140 PRINT "2. RUN LIFE GENERATOR" 

150 PRINT "3- LOAD A PATTERN FROM CASSETTE" 

160 PRINT "4. SAVE PATTERN ON CASSETTE" 

170 INPUT "OPTION NUMBER" ;N 

180 ON N G0SUB 200,2000,4000,3000 

190 GOTO 110 



200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 



CREATE GRID FOR PATTERN INPUT 

PRINT "clr cd"; 

FOR 1=1 TO 5 
PRINT "I""! r 
PRINT "I t I 
PRINT "I I I 
PRINT ": 
NEXT I 
PRINT "T 
PRINT "I 
PRINT "I 



t — r — r 
i i i 
i i i 



r — r — i — r- 
i i i i 
i i i i 

PRINT "L L I L L. 

INPUT "homeGOTO 1000" ;A$ 



I 

I 

.J 
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STORE PATTERN 

1000 PRINT "homeSTORING CELL PATTERN" 

1010 FOR 1=1 TO 24:A$(I)="":NEXT I 

1020 FOR 1=1 TO 24: FOR J=1 TO 39 

1030 IF PEEK(32767+J+(I*40))=81 THEN A$(I)=A$(I)+"§" :GOTO 1050 

1040 A$(I)=A$(I)+"-" 
1050 NEXT J: NEXT I 
1060 RETURN 

ACCESS LIFE GENERATOR 

2000 INPUT "clrHOW MANY GENERATIONS" ; G 

2010 PRINT "cdDEVELOPEMENT RATE:":PRINT 

2020 PRINT "0; SINGLE STEP VIA (G) KEY" 

2030 PRINT "1-99 '.INTERMEDIATE RATES" 

2040 PRINT "100: MAX (255 GENERATIONS LIMIT)" 

2050 INPUT "cdRATE";S 

2060 PRINT "clrGEN 0" 

2070 FOR 1=1 TO 23: PRINT A$(I): NEXT I 

2075 PRINT A$(I);:FOR 1=1 TO 2000: NEXT I 

2080 IF S=100 THEN POKE 6483 S 256-G:SYS(6410) :GOTO 2140 

INTERMEDIATE RATES 

2100 POKE 6483, 255: IF S=0 GOTO 2160 
2110 S=100-S:F0R 1=1 TO G 
2120 SYS(6410):PRINT "homeGEN";I 
2130 FOR J=1 TO S*30:NEXT J: NEXT I 
2140 GET A$:IF A$<>"X" GOTO 2140 
2150 RETURN 

SINGLE STEP 

2160 G=1 

2170 SYS(6410):PRINT "homeGEN";G 
2180 GET A$: IF A$="X" THEN RETURN 
2190 IF A$="G" THEN G=G+1 : GOTO 2170 
220 GOTO 2180 

SAVE PATTERN 

3000 INPUT "clrPATTERN NAME";A$ 

3010 OPEN 1,1,1,A$ 

3015 POKE 243, 122: POKE 244,2 

3020 FOR 1=1 TO 24 

3030 PRINT#1,A$(I) 

3035 POKE 59411,53 

3040 NEXT I 

3050 CLOSE 1: RETURN 

LOAD PATTERN 
4000 INPUT "clrPATTERN NAME";A$ 
4010 OPEN 1,1,0,A$ 

4020 FOR 1=1 TO 24:INPUT#1 ,A$(I) :NEXT I 
4030 CLOSE 1: RETURN 
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THE ULTIMATE PET RENUMBER 

Don Rindsberg 

The Bit Stop 

Box 973 

Mobile, Alabama 36601 



This article can be of help to the BASIC programmer in providing a 
fast, fool-proof renumbering system, but it also includes details on 
how to use the PET BASIC interpreter's own machine-language 
routines to do some useful chores. 

Renumbering programs written in BASIC, such as Jim Butterfield's 
(see MICRO Dec 78 - Jan 79) are very slow in renumbering long 
programs, and because BASIC is cumbersome in performing such 
routine chores, the machine-language approach has some major 
advantages. This routine will renumber a 300-line program in 
around 20 seconds, as compared to more than 300 seconds for 
Jim's BASIC version. Further, Jim is forced to duck the issue of 
providing space for extra-digit line numbers, whereas by calling 
BASIC'S line insertion routine, this program provides enough space 
for five digits for every GOTO, GOSUB, etc. 
The entire program for renumbering is given in hexadecimal in 
listing 1. More later about how to enter it into your machine. With 
your BASIC program and the renumber routine in RAM, press 
SYS8181 (by coincidence, the name of the program) and you will 
either get a message of reassurance that all has gone well, or will 
get an error message, such as "line too long". In no case will the 
program bomb, because this is a two-pass program; during the first 
pass, nothing is done to the Basic text, other than making sure 
there is enough space for five-digit line numbers. If any problem 
exists, the BASIC text is unchanged. 

DEVELOPING THE PROGRAM 

Commodore made it a formidable task to decipher the code of 
BASIC sufficiently to be able to make patches for a short renumber 
system. The first obstacle is that the PEEK statement is disabled for 
the area of memory where BASIC resides. But, by sleight-of-hand, a 
little PUNCHing and POKEing and addition of a simple output port 
on PET's memory-expansion connector, the PET disgorged the 
contents of its ROMs into my homebrew machine and onto a disk; 
now, with the capability of having the programs in RAM, where 
breaks could be inserted for diagnosis, the job became a little 
easier. 

Programming a renumber routine is made tedious by the fact that, 
in the BASIC text, the line numbers following the GOTO tokens are 
coded in ASCII, whereas the line numbers at the beginning of a 
line of text are coded as two-byte hex numbers. Fortunately, the 
BASIC interpreter has rountines built in to do these conversions 
back and forth between ASCII and hex. The locations of these and 
other routines called by this program are given in TABLE 1. 
Another problem encountered was locating some page zero 
registers, essential to 6502 programming, which are not altered by 
the BASIC itself. In some cases, I use space in the line buffer at 
000A-0059, but this cannot be done in the section of the Program 
which uses the line buffer for its original purpose, i.e., inserting a 
line in its proper place in the BASIC text. 
This program uses very little RAM, since no tables are created. 

PROGRAM OPERATION 

The program first sets or clears a flag, depending upon entry point 
(DCM 8181 or 8184), since entry point determines whether the 



renumber job is standard or custom. It then checks to see if 
sufficient memory exists to allow for insertion of spaces for as 
many as five digits for GOTO line numbers. An error message (see 
TABLE 2) is generated if there is less than one page available for 
this enlargement of the program. Then, each line of text is moved 
into the line buffer, and if a GOTO, GOSUB, or THEN (followed by 
a number) is present, spaces are inserted and the expanded line is 
inserted by BASIC'S own line-insertion routine into the text area, 
just as though you retyped the line on the keyboard. Any lines too 
long for this expansion produce an error message before any harm 
is done to the program. BASIC'S own error routine is called to print 
these messages! The "TOO LONC" message is a shortened version 
of "STRING TOO LONC" used by BASIC. 

In the text, all statements are compressed into single-byte tokens, 
which I have listed for your reference in TABLE 3. For example, 
GOSUB is hex 8D, THEN is A7, etc. This program searches out all 
the 89, 8D and A7 tokens. Getting the proper ASCII numbers after 
these tokens requires conversion of the ASCII to hexadecimal and 
searching for a matching line number in the text area. If no match 
is found, the guy evidently had a GOTO pointing to a non-existent 
line number, so we flag this in the text by an opening parenthesis, 
such as: 

COTO( 

GOSUB( :X = Xt1 

IF A = B THEN( 

ON X GOTO 1234,( ,5678,9987 



When the progra is listed or run, the need for correction is obvious, 
While we are searching for a matching line number, we keep track 
of the new line number which corresponds to the current position 
in the text, so that when the match is found, the new line number 
can be converted to ASCII and placed directly into the text. 
The actual resequencing process which follows is an anticlimax, 
because it requires so little coding (1E16-1E3E). When the entire 
renumbering job is done, we jump back to BASIC'S warm start 
location. 

USING THE PROGRAM 

If you would like to renumber your program with the standard 
starting line number 100 and increment by 10, simply type 
SYS8181, which directs the program to hex address 1FF5. If you 
would like to choose a different starting line number or increment, 
POKE the desired values at the addresses shown in LISTING 2, and 
type SYS8184 to enter the program at 1FF8. If your BASIC program 
is long, it may take 3-4 seconds to complete the renumbering job. 
After renumbering, running the program will generally write over 
the renumber code, since it occupies the same space as some 
BASIC variables. The only precaution to be taken in renumbering 
is to avoid line numbers which exceed PET's limit of 63999. 
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ROUTINE ENTRY POINT (HFX) 
C359 

1F00 



CCA4 

DB1B 
D6D0 
DCAF 

C38B 

CA27 

DC9F 



FUNCTION AND IMPLEMENTATION 

Print an error message from the message table. Enter with X 
containing the location of the message relative to C190. Message 
terminator is ASCII having bit 7 on. 

A duplicate of the original BASIC line insertion routine located at 
C3B4, except for the exit jump. Enter with the line assembled in the 
line buffer OOOA-0059 with 00 as line terminator. Also, the 
character count must be in 005C, and the line number (hex) at 
0008/9. 

Evaluate an expression whose beginning address is in 00C9/CA. We 
use this sub to convert from ASCII to binary, with the result 
appearing in the floating accumulator OOBOt. 

Convert fixed number in 00B1/2 to floating number. Enter with 
X=90 and carry set. 

Convert binary value, such as line number, in floating accumulator 
to two-byte fixed number and place in 0008/9. 

Convert floating number at OOBOt to ASCII and place in a string 
starting at 0101, preceded by a space or minus sign at 0100 and 
terminated by 00. 

BASIC warm start. Prints READY. 

Print message. Enter with ADH in Y, ADL in A. Message is ASCII 
string enough with 00. 

Print the decimal integer whose hex value is in microprocessor 
registers A and X, for example, a line number. 



TABLE 1 - BASIC ROUTINES USED 



MESSAGE 



INTERPRETATION 



CHECK FOR GOTO( ETC 

120 

? TOO LONG ERROR 

? OUT OF MEMORY ERROR 

? SYNTAX ERROR 



Successful renumbering. 

Line 120 is too long to renumber. Break into two or more lines, and 
renumber again. 

Program too long to renumber. 

Attempt to RUN program with GOTO( remaining in program, or 
attempt to renumber with one of these in program text. 



GOTO( 
COSUB( 
ON X COTO( 
IF A = B THEN( 



The opening parenthesis in the text represents attempt to 
reference a non-existent line number. 



Note: Lines of the following form are likely to cause a TOO LONG error: 
100 ON X GOSUB 1,2,3,4,5,6,7,8,9,10,11,12 

TABLE2-MESSACES 
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RENUMB ORG $1D00 
DON RINDSBERG 
(C) 1978 N.A.I.L. 

CI SIGN MEANS PLUS) 



EXTERNAL ROUTINES 



INSERT 
MESSG 



$1F00 INSERT A LINE INTO TEXT 
$1FCA DONE MESSAGE 



TEMPORARIES 



BUFF 

POINT 

POINTX 

LINCNT 

PTRSO 

PTRS 

FLAG 

BUFPTR 

COUNT 

STARTC 

INTO 

CUSTOM 



$0008 LINE BUFFER LOCATION 

$0019 TEMP LINE BUFF POINTER 

$00JA TEMP POINTER 

$005C NO. CHAR. IN LINE 

$007 A ORIGINAL POINTERS 

$006A WORKING POINTERS 

$0069 FLAG THE GOTOS 

$006E LINE BUFF POINTER PAGE ZERO 

$006F COUNTER 

$00DB CUSTOM STARTING LINE NO. 

$00DD CUSTOM INTERVAL 

$00DE FLAG CUSTOM JOB 



BASIC PARAMETERS 



FACC 

BASICP 

BERROR 

WARM 

PRINT 

EVAL 

FIX 

FLOAT 

PNUMBR 

ASCII 



$00B0 
$00C9 
$C359 
$C38B 
$CA27 
$CCA4 
$D€D0 
$DB1B 
$DC9F 
$DCAF 



BASIC FLOATING ACCUM 

BASIC POINTER 

BASIC ERROR ROUTINE 

BASIC WARM START 

BASIC PRINT ROUTINE 

EXPRESSION E VALUATOR 

CONVERT TO FIXED DP 

CONVERT FIXED NMBR TO FLOAT 

BASIC PRINT NUMBER 

CONVERT NMBR TO ASCII AT $0100 



1D00 A5 7D 
1D02 C9 IB 
1D04 90 05 
1D06 A2 52 
1D08 4C FC IE 
1D0B 20 BD IE 
1D0E 20 3F JE 
1D11 F0 2B 
1D13 A2 08 



MAINLINE 

START LDA 

CMPIM 
BCC 

BOMB LDXIM 
JMP 

SPACE JSR 



NEXT 



JSR 
BEQ 
LDXIM 



PTRSO 

$1B 

SPACE 

$52 

ERROR 

COPY 

DNTST 

RENUM 

$08 



403 GET END TEXT ADH 
ENOUGH ROOM TO EXPAND? 

OUT OF MEMORY 

MAKE CC TEXT POINTERS 
ARE WE DONE THIS SECTION? 

LINE BUFFER START 
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1D15 

1D17 

1D19 

ID IB 

1D1D 

1D1F 

1D21 

1D23 

1D24 

ID25 

1D27 
1D2A 

1D2C 
1D2E 
1D2F 
1D31 
1D33 
1D35 
1D38 
1D3B 



A0 02 
Bl 6A 
95 00 
C0 04 
90 0i» 
C9 00 
F0 04 
C8 
E8 

D0 F0 
20 47 IE 
A5 69 
D0 0A 
38 

A5 6E 
E9 05 
85 5C 
4C 00 IF 
20 C7 
4C 0E 



$04 
SKIPA 
$00 
TERM 



IE 
ID 



LDYIM $02 
GETBYT LDAIY PTRS 

STAZX 

CPYIM 

BCC 

CMPIM 

BEQ 
SKIPA INY 

INX 

BNE 
TERM JSR 

LDAZ 

BNE 

SEC 

LDA 

SBCIM 

STA 

JMP 
SKIPB JSR 

JMP 



POINT TO LINE NMBR IN TEXT 
GET BYTE FROM TEXT 
STORE IN LINE BUFFER 
ZERO HERE NOT TERMINATOR 



GOT THE TERMINATOR 



GETBYT FORCED BRANCH 

EDIT EDIT ONE LINE 

FLAG 

SKIPB SKIP IF NO GOS FLAGGED 

BUFPTR 

$05 CORRECT BYTE COUNT 

LINCNT NEED CHAR COUNT 

INSERT BUT RETURN TO NEXT LINE 

UPDATE POINT TO NEXT LINE 

NEXT 



1D3E 20 

1D41 20 

1D44 D0 

1D46 4C 

1D49 20 

1D4C A0 

1D4E C8 

ID4F Bi 

1D51 D0 

1D53 20 

1D56 4C 

1D59 C9 

1D5B F0 

1D5D C9 

iD5F F0 

1D61 C9 

1D63 D0 

iD65 C8 

1D66 Bl 

iD68 C9 

1D6A F0 

iD6C 20 

1D6F B0 

1D71 88 

1D72 C8 

1D73 84 

JD75 98 

1D76 18 

1D77 65 

1D79 85 

1D7B 20 

1D7E EA 

ID7F 20 

ID82 20 



BD IE 
3F IE 
03 

16 IE 
AE IF 
03 



6A 

06 

C7 IE 

41 ID 

89 

15 

8D 

11 

A7 

E9 

6A 
20 
F9 

E5 IE 
E8 



RENUM 
NEXTR 



NOTDON 
SCAN 
SCANA 
SCANX 



GOTEST 



THEN 



GOTO 
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6A 

C9 
ED IF 

A4 CC 
D0 D6 



JSR 

JSR 

BNE 

JMP 

JSR 

LDYIM 

INY 

LDAIY 

BNE 

JSR 

JMP 

CMPIM 

BEQ 

CMPIM 

BEQ 

CMPIM 

BNE 

INY 
LDAIY 

CMPIM 

BEQ 

JSR 

BCS 

DEY 

INY 

STY 

TYA 

CLC 

ADC 

STA 

JSR 

NOP 

JSR 

JSR 



COPY 

DNTST 

NOTDON 

RESEQ 

STRTLN 

$03 

PTRS 

GOTEST 

UPDATE 

NEXTR 

$89 

GOTO 

$8D 

GOTO 

$A7 

SCANA 

PTRS 

$20 
THEN 
TSTDGT 
GOTEST 



THE POINTERS 

ARE WE DONE THIS PORTION? 



GET STARTING LINE NMBR 
POINT TO TEXT-1 

GET A BYTE 

BRANCH IF NOT TERMINATOR 

GO TO NEXT LINE 

GOT A GOTO? 

GOT A GOSUB? 

GOT A THEN? 

POINT TO NEXT 

IGNORE SPACES 

TEST FOR NUMBER 



POINT SAVE A MOMENT 



PTRS POINT TO ASCII NMBRS 

BASICP 

PATCH BUG FIX 

EVAL CALL BASIC EVALUATOR 
FIX AND BASIC FIX ROUTINE 
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1D85 


A5 


7A 




SEARCH 


LDA 


PTRSO 


SETUP SEARCH POINTERS 


1D87 


85 


1A 






STA 


POINTX 




*D89 


A5 


7B 






LDA 


PTRSO 


401 


JDSB 


85 


IB 






STA 


POINTX 


A01 


1D8D 


A0 


00 




SRCHLP 


LDYIM 


$00 




1D8F 


Bl 


1A 






LDAIY 


POINTX 


SET NEXT BYTE 


1D91 


C8 








INY 






1D92 


11 


1A 






ORAIY 


POINTX 


TEST FOR TWO ZERO BYTES 


1D94 


D0 


10 






BNE 


NOTEND 


ZEROES MARK EOT 


1D96 


A9 


20 






LDAIM 


$20 


GET A SPACE 


ID 98 


8D 


00 


01 




STA 


$0100 


ASCII WORKSPACE 


1D9B 


A9 


28 






LDAIM 


$28 


GET OPEN PAREN 


1D9D 


8D 


01 


01 




STA 


$0101 




iDA0 


88 








DEY 






IDAi 


8C 


02 


01 




STY 


$0102 


TERMINATE WITH ZERO 


1DA4 


F0 


20 






BEQ 


MVASC 


FORCED BRANCH 


1DA6 


A0 


02 




NOTEND 


LDYIM 


$02 




1DA8 


Bl 


1A 






LDAIY 


POINTX 


GET LINE NO. LOW 


1DAA 


C5 


08 






CMP 


BUFF 


MATCH? 


1DAC 


D0 


55 






BNE 


NOMAT 




1DAE 


C8 








INY 






1DAF 


Bi 


1A 






LDAIY 


POINTX 


GET LINE NO. HIGH 


fDBi 


C5 


09 






CMP 


BUFF 


&01 


1DB3 


D0 


4E 






BNE 


NOMAT 




1DB5 


A6 


10 




MATCH 


LDX 


BUFF 


408 GET CURRENT LINE NMBR 


1DB7 


86 


B2 






STX 


FACC 


402 


1DB9 


A5 


11 






LDA 


BUFF 


409 SECOND BYTE 


1DBB 


85 


Bl 






STA 


FACC 


401 


1DBD 


A2 


90 






LDXIM 


$90 


SETUP FOR FLOAT 


1DBF 


38 








SEC 






1DC0 


20 


IB 


DB 




JSR 


FLOAT 




1DC3 


20 


AF 


DC 




JSR 


ASCII 


TO $0101 PLUS 


1DC6 


A2 


FB 




MVASC 


LDXIM 


$FB 


MINUS 5 


1DC8 


A4 


19 






LDY 


POINT 




1DCA 


W 


06 


00 


LOOPA 


LDAAX 


$0006 




1DCD 


F0 


08 






BEQ 


BLANKS 


TERMINATOR ZERO 


1DCF 


91 


6A 






STAIY 


PTRS 




1DD1 


C8 








INY 






1DD2 


E8 








INX 






1DD3 


D0 


F5 






BNE 


LOOPA 




1DD5 


F0 


0C 






BEQ 


COMMA 




1DD7 


A9 


20 




BLANKS 


LDAIM 


$20 


GET SPACE 


1DD9 


91 


6A 






STAIY 


PTRS 


STORE IT 


1DDB 


C8 








INY 






1DDC 


E8 








INX 






1DDD 


D0 


F8 






BNE 


BLANKS 




1DDF 


88 








DEY 






1DE0 


D0 


01 






BNE 


COMMA 




IDE2 


C8 






COMMX 


INY 






1DE3 


Bl 


6A 




COMMA 


LDAIY 


PTRS 


GET NEXT BYTE 


1DE5 


20 


E5 


IE 




JSR 


TSTDGT 


TEST FOR NUMBER 


1DE8 


B0 


06 






BCS 


NOTNUM 




IDEA 


A9 


20 






LDAIM 


$20 


SPACE 


1DEC 


91 


6A 






STAIY 


PTRS 


STORE IT 


IDEE 


D0 


F2 






BNE 


COMMX 


FORCED 


1DF0 


C9 


20 




NOTNUM 


CMPIM 


$20 


SPACE? 
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1DF2 F0 EE 






BEO COMMX 


1DF4 C9 2C 






CMPIW $2C COMMA? 


1DF6 08 






PHP DEFER TEST 


JDF7 20 AE 


IF 




JSR STRTLN GET STARTING LINE NMBR 


1DFA 28 






PLP NOW TEST 


JDFB D0 03 






BNE JSCANX NOT COMMA 


iDFD 4C 72 


IB 




JMP GOTO GOT A COMMA 


1E00 4C 4F 


ID 


JSCANX 


JMP SCANX 


1E03 20 EE 


IE 


NOMAT 


JSR INCLIN INCR NEW LINE NMBR 


JE06 A0 00 






LDYIM $00 


1E08 Bl 1A 






LDAIY PQINTX GET NEXT LINE ADDRESS 


1E0A 48 






PHA 


1E0B C8 






INY 


1E0C Bi 1A 






LDAIY POINTX 


1E0E 85 IB 






STA POINTX 401 


1EJ0 68 






PLA 


1E11 85 iA 






STA POINTX 


JEJ3 4C 8D 


ID 




JMP SRCHLP BACK TO SEARCH AGAIN 


1E16 20 AE 


IF 


RESEQ 


JSR STRTLN SETUP STARTING LINE 


1E19 20 BD 


IE 




JSR COPY COPY THE POINTERS 


iElC 20 3F 


IE 


LOOPR 


JSR DNTST DONE? 


1E1F F0 13 






BEQ WINDUP 


1E21 A0 02 






LDYIM $02 POINT TO LINE NMBR 


1E23 A5 10 






LDA BUFF &0g GET NEW ONE 


1E25 91 6A 






STAIY PTRS STORE IT 


1E27 C8 






INY 


1E28 A5 11 






LDA BUFF 409 


1E2A 91 6A 






STAIY PTRS 


1E2C 20 C7 


IE 




JSR UPDATE ADyANCE TO NEXT LINE 


1E2F 20 EE 


IE 




JSR INCLIN INCREMENT LINE NMBR 


1E32 90 E8 






BCC LOOPR FORCED 


1E34 A0 IF 




WINDUP 


1 LDYIM MESSG /100 


1E36 A9 CA 






LDAIM MESSG 


1E38 20 27 


CA 




JSR PRINT END MESSAGE 


1E3B 58 






CLI ALLOW KEYPRESSES 


1E3C 4C 8B 


C3 




JMP WARM BACK TO BASIC 


1E3F A0 00 




DNTST 


LDYIM $00 


1E41 Bl 6A 






LDAIY PTRS GET NEXT BYTE 


1E43 C8 






INY ADVANCE TO NEXT 


1E44 11 6A 






ORAIY PTRS OR WITH LAST TO FIND 0000 


1E46 60 






RTS 


1E47 A2 09 




EDIT 


LDXIM BUFF 401 


1E49 86 6E 






STX BUFPTR 


1E4B 86 69 






STX FLAG SET FLAG 


1E4D E6 6E 




EDITX 


INC BUFPTR 


1E4F A6 6E 






LDX BUFPTR 


1E51 B5 00 






LDAZX $00 


1E53 F0 71 






BEQ RTS 


1E55 C9 89 




EDITY 


CMPIM $89 GOTO? 


1E57 F0 19 






BEQ SPACES 
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1E59 C9 
1E5B F0 
1E5D C9 
1E5F D0 
1E61 E6 
JE63 A6 
1E65 B5 
1E67 C9 
1E69 F0 
1E6B 20 
1E6E B0 
1E70 C6 
1E72 A2 
1E74 E8 
1E75 B5 
1E77 D0 
1E79 E0 
1E7B 90 
1E7D A5 
1E7F A6 
1E81 20 
1E84 A2 
1E86 4C 
1E89 A2 
1E8B 86 
1E8D E6 
1E8F C6 
1E91 F0 
1E93 A6 
1E95 B5 
JE97 C9 
1E99 F0 
1E9B 20 
1E9E 90 
1EA0 20 
1EA3 D0 
iEA5 A0 
1EA7 84 
1EA9 A6 
1EAB B5 
1EAD F0 
1EAF C9 
1EB1 00 
1EB3 E6 
1EB5 D0 
1EB7 C9 
1EB9 F0 
1EBB D0 



8D 

15 

A7 

EC 

6E 

6E 

00 

20 

F6 

E5 IE 

E5 

6E 

09 

00 

FB 

54 

0C 

09 

08 

9F DC 

BB 

FC IE 

06 

6F 

6E 

6F 

12 

6E 

00 

20 

F2 

E5 IE 

ED 

D5 IE 

E8 

00 

69 

6E 

00 

17 

20 

04 

6E 

F2 

2C 

B7 

90 



THENN 



SPACES 
SPACEX 



OKAY 
LOOP 



COMMAS 
FINDT 



TEST 



CMPIM 

BEQ 

CMPIM 

BNE 

INC 

LDX 

LDAZX 

CMPIM 

BEG 

JSR 

BCS 

DEC 

LDXIM 

I NX 

LDAZX 

BNE 

CPXIM 

BCC 

LDA 

LDX 

JSR 

LDXIM 

JMP 

LDXIM 

STX 

INC 

DEC 

BEQ 

LDX 

LDAZX 

CMPIM 

BEQ 

JSR 

BCC 

JSR 

BNE 

LDYIM 

STY 

LDX 

LDAZX 

BEQ 

CMPIM 

BNE 

INC 

BNE 

CMPIM 

BEQ 

BNE 



$8D 

SPACES 

$A7 

E.DITX 

BUFPTR 

BUFPTR 

$00 

$20 

THENN 

TSTDGT 

EDITY 

BUFPTR 

BUFF 

$00 

SPACEX 

$54 

OKAY 

BUFF 

BUFF 

PNUMBR 

$BB 

ERROR 

$06 

COUNT 

BUFPTR 

COUNT 

COMMAS 

BUFPTR 

$00 

$20 

LOOP 

TSTDGT 

LOOP 

UPONE 

LOOP 

$00 

FLAG 

BUFPTR 



GOSUB? 

THEN? 

BACK FOR MORE 



BYTE AFTER THEN 
IGNORE SPACES 

IS IT NUMBER? 
IF NOT, GO BACK 

401 TEXT-1 

LOOK FOR TERMINATOR 

LINE TOO LONG? 

&01 

GET BAD LINE NMBR 

PRINT IT 

TOO LONG MESSG 

DIGITS PLUS ONE 



RTS 

$20 

TEST 

BUFPTR 

FINDT 

$2C- 

SPACES 

EDITX 



TEST FOR SPACES 

TEST FOR NUMBER 

MAKE ROOM FOR ONE DIGIT 
FORCED BRANCH 

WE WERE HERE 

FIND TERMINATOR 

SPACE? 



FORCED 
COMMA? 



1EBD A2 04 
1EBF B5 7 9 
1EC1 95 69 
1EC3 CA 
iEC4 D0 F9 
1EC6 60 



COPY 
LP 



RTS 



LDXIM $04 

LDAZX $79 

STAZX $69 

DEX 

BNE LP 

RTS 



COPY 4 BYTES 
COPY POINTERS 
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1EC7 A0 00 
1EC9 Bl 6A 
1ECB 48 
1ECC C8 
1ECD Bl 6A 
1ECF 85 6B 
1EDI 68 
1ED2 85 6A 
1ED4 60 



UPDATE LDYIM $00 
LDAIY PTRS 
PHA 
INY 

LDAIY PTRS 
STA PTRS 
PLA 

STA PTRS 
RTS 



GET LINK ADL 
HOLD ON STACK 

GET LINK ADH 

&01 STORE LISK ADH 

STORE LINK ADL 



1ED5 A2 59 
1ED7 CA 
1ED8 B5 00 
1EDA 95 01 
JEDC E4 6E 
1EDE D0 F7 
1EE0 A9 20 
1EE2 95 00 
1EE4 60 



UPONE 
LOOPU 



LDXIM BUFF 
DEX 

LDAZX $00 
STAZX $01 
CPX 
BNE 
LDAIM $20 
STAZX $00 
RTS 



451 END BUFFER 

GET A BYTE 
MOVE UP ONE 



BUFPTR 
LOOPU 



INSERT SPACE 



1EE5 C9 30 
JEE7 90 03 
1EE9 C9 3A 
1EEB 60 
1EEC 38 
1EED 60 



TSTDGT CMPIM *0 
BCC SET 
CMPIM »: 
RTS 

SET SEC 
RTS 



WITH CARRY CLEAR 
CARRY SET IF NON-NMBR 



IEEE 18 
JEEF A5 10 
1EF1 65 12 
1EF3 85 10 
1EF5 A5 11 
1EF7 69 00 
1EF9 85 11 
1EFB 60 



INCLIN CLC 

LDA BUFF 

ADC BUFF 

STA BUFF 

LDA BUFF 

ADCIM $00 

STA BUFF 
RTS 



408 

40A 

&08 

&09 

ADD INTERVAL 

&09 TO CURRENT LINE 



1EFC 58 ERROR CLI 
1EFD 4C 59 C3 JMP 



ALLOW KEYPRESS 
BERROR BASIC ERROR PROCESSOR 



1FAE 



ORG $1FAE 



1FAE A9 64 
1FB0 85 10 
1TB2 A 9 00 
1FB4 85 11 
1FB6 A2 0A 
1FB8 A5 DE 



STRTLN LDAIM $64 
STA BUFF 
LDAIM $00 
STA BUFF 
LDXIM $0A 



DEFAULT 100 

&0S 

HIGH ORDER 

&09 

INTERVAL 10 



LDA CUSTOM TEST FOR CUSTOM 
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1FBA 10 0A 


BPL 


SKIPL 




JFBC A6 DD 


LDX 


INTC 


CUSTOM INTERVAL 


1FBE A5 DB 


LDA 


STARTC 


CUSTOM START 


1FC0 85 10 


STA 


BUFF 


408 


1FC2 A5 DC 


LDA 


STARTC 


401 


1FC4 85 11 


STA 


BUFF 


1,09 


1FC6 86 12 SKIPL STX 


BUFF 


10A 


1FC8 60 


RTS 






1FC9 EA 


NOP 







1FED 



FINAL MESSAGE $1FCA THROUGH S1FEC 
"CHECK FOR GOTOC ETC" 

PATCH ORG $1FED 



1FED A5 6B 




LDA 


PTRS 


401 


1FEF 69 00 




ADCIM 


$00 




1FF1 85 CA 




STA 


BASICP 


&01 


1FF3 60 




RTS 






1FF4 EA 




NOP 






1FF5 18 


ENTRY 


CLC 




CLEAR FOR STAN 


1FF6 90 01 




BCC 


ALL 




1FF8 38 


ENTRYA 


SEC 




SET FOR CUSTOM 


1FF9 78 


ALL 


SEI 




DISABLE KEYS 


1FFA 66 DE 




RORZ 


CUSTOM 


FLAG IN BIT 7 


1FFC 4C 00 ID 




JMP 


START 





INSERT ORG $1F00 

DUPLICATE OF BASIC INSERT ROUTINE 
EXCEPT FOR EXIT JUMP 



1F00 20 


22 C5 


JSR 


$C522 


1F38 


C6 


72 


DECZ 


$72 


1F03 90 


44 


BCC 


INSC 


1F3A 


18 




CLC 




1F05 A0 


01 


LDYIM 


$01 


1F3B 


Bl 


71 INSB LDAIY 


$71 


1F07 Bl 


AE 


LDAIY 


$AE 


1F3D 


91 


73 


STAIY 


$73 


1F09 85 


72 


STAZ 


$72 


1F3F 


C8 




INY 




1F0B A5 


7C 


LDAZ 


$7C 


1F40 


D0 


F9 


BNE 


INSB 


1F0D 85 


71 


STAZ 


$71 


1F42 


E6 


72 


INCZ 


$72 


1F0F A5 


AF 


LDAZ 


$AF 


1F44 


E6 


74 


INCZ 


$74 


1F11 85 


74 


STAZ 


$74 


1F46 


CA 




DEX 




1F13 A5 


AE 


LDAZ 


$AE 


1F47 


D0 


F2 


BNE 


INSB 


1F15 88 




DEY 




1F49 


A5 


0A INSC LDAZ 


$0A 


1F16 Fl 


AE 


SBCIY 


$AE 


1F4B 


F0 


2F 


BEQ 


INSF 


1F18 18 




CLC 




1F4D 


A5 


86 


LDAZ 


$86 


1F19 65 


7C 


ADCZ 


$7C 


1F4F 


A4 


87 


LDYZ 


$87 


1F1B 85 


7C 


STAZ 


$7C 


1F51 


85 


82 


STAZ 


$82 


1F1D 85 


73 


STAZ 


$73 


1F53 


84 


83 


STYZ 


$83 


1F1F A5 


7D 


LDAZ 


$7D 


1F55 


A5 


7C 


LDAZ 


$7C 


1F21 69 


FF 


ADCIM 


$FF 


1F57 


85 


A9 


STAZ 


$A9 


1F23 85 


7D 


STAZ 


$7D 


1F59 


65 


5C 


ADCZ 


$5C 


1F25 E5 


AF 


SBCZ 


$AF 


1F5B 


85 


A7 


STAZ 


$A7 


1F27 AA 




TAX 




1F5D 


A4 


7D 


LDYZ 


$7D 


1F28 38 




SEC 




1F5F 


84 


AA 


STYZ 


$AA 


1F29 A5 


AE 


LDAZ 


$AE 


1F61 


90 


01 


BCC 


INSD 


1F2B E5 


7C 


SBCZ 


$7C 


1F63 


Cg 




INY 




1F2D A8 




TAY 




1F64 


84 


A8 INSD STYZ 


$A8 


1F2E B0 


03 


BCS 


INSA 


1F66 


20 


DA C2 


JSR 


$C2DA 


1F30 E8 




INX 




1F69 


A5 


80 


LDAZ 


$80 


1F31 C6 


74 


DECZ 


$74 


1F6B 


A4 


81 


LDYZ 


$81 


1F33 18 


INSA CLC 




1F6D 


85 


7C 


STAZ 


$7C 


1F34 65 


71 


ADCZ 


$71 


1F6F 


84 


7D 


STYZ 


$7D 


1F36 90 


03 


BCC 


INSB 


1F71 


A4 


5C 


LDYZ 


$5C 
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LOCATION 
HEX DECIMAL VALUE TO BE POKED 

OODB 219 Low order starting line number (wieght 1) 

OODC 220 High order starting line number (weight 256) 

OODD 221 Increment desired (1-255) 

Example: POKE 219,232 
POKE 220,3 
POKE 221,50 

This will give a starting line number of 3 x 256 t 232 = 1000, and 
following lines will be incremented by 50. 

LISTINC 2 - NON-STANDARD LINE RENUMBER 



STATEMENT 


TOKEN 


STATEMENT TO 


KEN 


END 


80 


FN 


A5 


FOR 


81 


SPC( 


A6 


NEXT 


82 


THEN 


A7 


DATA " 


83 


NOT 


A8 


INPUT* 


84 


STEP 


A9 


INPUT 


85 


+ 


AA 


DIM 


86 


- 


AB 


READ 


87 


* 


AC 


LET 


88 


/ 


AD 


GOTO 


89 


t 


AE 


RUN 


8A 


AND 


AF 


IF 


8B 


OR 


BO 


RESTORE 


8C 


> 


B1 


GOSUB 


8D 


= 


B2 


RETURN 


8E 


< 


B3 


REM 


8F 


SGN 


B4 


STOP 


90 


INT 


B5 


ON 


91 


ABS 


B6 


WAIT 


92 


USR 


B7 


LOAD 


93 


FRE 


B8 


SAVE 


94 


POS 


B9 


VERIFY 


95 


SQR 


BA 


DEF 


96 


RND 


BB 


POKE 


97 


LOG 


BC 


PRINT* 


98 


EXP 


BD 


PRINT 


99 


COS 


BE 


CONT 


9A 


SIN 


BF 


LIST 


9B 


TAN 


CO 


CLR 


90 


ATN 


C1 


CMD 


9D 


PEEK 


C2 


SYS 


9E 


LEN 


C3 


OPEN 


9F 


STR$ 


C4 


CLOSE 


AO 


VAL 


C5 


GET 


A1 


ASC 


C6 


NEW 


A2 


CHR$ 


C7 


TAB( 


A3 


LEFT$ 


C8 


TO 


A4 


RIGHT$ 


C9 






MID$ 


CA 




TABLE 


3 




TOKENS (shorthand used in BASIC text) 





ENTERING THE PROGRAM 

The hard way to load the program into your PET is to convert my 
nex listing into decimal and POKE each byte into memory. This is, 
of course, a challenge to your accuracy and diligence, although it 
may take only slightly longer than renumbering by hand. It is only 
a little easier to write a BASIC program which will accept the hex 
data and convert to decimal, with the hex incorporated in DATA 
statements and obtained by the READ statement. With this 
alternate, the program can be recorded for future use. 

To make loading painless (excpet for the wallet), I have arranged 
to make tapes available through NAIL*, Drawer F, Mobile, 
Alabama 36601. These tapes load the machine-language program 
directly into high memory. Ask for "SYS8181" and send $18.18. By 
the way, they also have a dandy PET monitor called SYS7171 for 
$29.71, which has machine language capabilities, the ability to 
co-reside in RAM with BASIC programs, but also has the very 
helpful feature of being able to APPEND one BASIC program to 
another, just like the big boys do, with interleaving of lines. Like 
SYS8181, it uses the BASIC line-inserting routine to do the merging, 
just as though you typed all those new lines on your keyboard. I 
used a version of this monitor to develop SYS8181. If there is 
sufficient interest out there, I may develop a ROM version of 
SYS8181, but you will have to be a hardware buff to wire it into 
your PET. 

Since PET BASIC was written by the same company who write 
APPLESOFT and is similar, some APPLE owners may wish to obtain 
a disassembled, documented listing of this renumbering program 
Ifrom me for $5.00. 

♦National Artficial Intelligence Laboratory 



1F73 88 




DEY 




1F74 B9 06 00 


INSE 


LDAAY 


$0006 


1F77 91 AE 




STAIY 


$AE 


1F79 88 




DEY 




1F7A 10 F8 




BPL 


INSE 


JF7C 20 67 C5 


INSF 


JSR 


$C567 


1F7F A5 7A 




LDA2 


$7A 


1F81 A4 7B 




LDY2 


$7B 


1F83 85 71 




STA2 


$71 


1F85 84 72 




STY2 


$72 


lFg7 18 




CLC 




1F88 A0 01 


INSG 


LDYIM 


$01 


1F8A Bl 71 




LDAIY 


$71 


1F8C D0 03 




BNE 


INSH 


1F8E 4C 38 ID 




JMP 


$1D38 


1F91 A0 04 


INSH 


LDYIM 


$04 


1F93 C8 


INSI 


INY 




1F94 Bl 71 




LDAIY 


$71 


1F96 D0 FB 




BNE 


INSI 


1F98 C8 




INY 




1F99 98 




TYA 




1F9A 65 71 




ADCZ 


$71 


1F9G AA 




TAX 




1F9D A0 00 




LDYIM 


$00 


1F9F 91 71 




STAIY 


$71 


1FA1 A5 72 




LDA2 


$72 


IF A3 69 00 




ADCIM 


$00 


1FA5 C8 




INY 




1FA6 91 71 




STAIY 


$71 


1FA8 86 71 




STXZ 


$71 


1FAA 85 72 




STA2 


$72 


IF AC 90 DA 




BCC 


INSG 
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A PET HEX DUMP PROGRAM 

Joseph Donato 

193 Walford Rd. E. 

Sudbury, ONT., Canada 



Have you PET owners ever wondered how it could be possible to 
look at your BASIC which resides in Read Only Memory (ROM)? 
To be able to look for routines entry points and other interesting 
codes in machine language? 

This program will do just that. You can look at all memory 
locations in PET's BASIC which starts at 49152 decimal or COOO 
hexadecimal in memory. One is able for example to look at 
locations D71E through D890 where addition and subtraction 
routines are carried out, D8BF through D8FC where the log 
function is evaluated, D9E1 through DA73 where division is 
performed and many other locations where other routines are 
carried out. 

A start for this program was provided by Mr. Herman's article of 
MICRO 7:47. Of course the same information was available in the 
Commodore Users Notes. 

In any event I decided that the ultimate goal of the program would 
be to provide a memory dump of some sort in hexadecimal 
notation so that machine language instructions could easily be 
recognized. 

The output of the program is formatted as a starting address 
followed by either 32 or 8 bytes of data per line, all in 
hexadecimal, depending on whether or not a printer is to be used. 
With the data bytes in hex notation it is very easy to correlate them 
with the 6502 microprocessor machine language instruction set. 

The program listing has been thoroughly debugged and tested. 
Although the program was originally written for a PET with a 
Centronics printer, as I outlined in the REM's, the program will run 
on a "bare" PET with no problem. 



The changes for a "bare" PET are as follows: 

1. Omit line 10. 

2. Change line 542 to read: 

542 IF L<>9 THEN 570 

3. Omit all print statements and substitute instead the print 
format outlined in the REM's at lines 606 through 612. 
These print lines are to be placed at line 545, 546, 547, 548. 

4. Notice that there is no comma or semicolon after the last 

print character. This is very important otherwise the format 
will be destroyed. 

A considerable amount of time was spent on both versions of 
the program. No problems were encountered in running either 
version. 

I hope that by following the machine language coding of the 6502 
some of you will obtain a better understanding of PET's Basic 
'inner workings'. Also some of you who have the T.I.M. monitor 
will be able to trace its subroutines and jumps to Basic. Perhaps it 
may inspire you in writing some machine language programs or 
routines. 

I should add that if one wishes to look at different addresses other 
than the COOO (49152 decimal), all you need do is to change the 
starting address value "K" in line 240. This must be in decimal 
notation. 

I hope you get as much pleasure as I did 'sneaking a look' at PET's 
Basic. 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



*** A BASIC PET HEX DUMP *** 

THIS PROGRAM WILL PEEK AT PET'S 

MEMORY IN ROM STARTING AT A GIVEN ADDRESS 'K' (49152 DECIMAL) AND RETURN 

THE CORRESPONDING DATA. ALL VALUES ARE CONVERTED TO HEXADECIMAL PRIOR TO 

PRINTING. THE FORMAT IS: STARTING ADDRESS PLUS 32 OR 8 BYTES OF DATA, 

PER LINE DEPENDING WHETHER OR NOT A PRINTER IS USED. 



THE COMMAND ON LINE 10 INITIALIZES THE PRINTER PORT. IT *MUST* BE OMITTED 

IF A "BARE" PET IS USED. 
OPEN 5,5:CMD 5 

REM FOLLOWING IS A MACHINE LANGUAGE 
REM ROUTINE WHICH RESIDES IN NUMBER 2 TAPE 

REM BUFFER AREA. IT RETURNS THE CONTENTS OF THE CORRESPONDING MEMORY 
REM LOCATIONS SPECIFIED BY 'K'. 

15 P0KE(1),58 

16 P0KE(2),3 

17 P0KE(826),32 
20 P0KE(827),167 
30 P0KE(828),208 
40 P0KE(829),166 
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50 P0KE(830),179 
60 POKE (831), 164 
70 POKE (832), 180 
80 POKE (833), 134 
90 POKE (834), 180 
100 P0KE(835),132 
120 P0KE(836),179 
130 P0KE(837),162 
140 P0KE(838),00 
150 P0KE(839),161 
160 POKE (840), 179 
170 P0KE(841),168 
180 P0KE(842),169 
190 POKE (843), 00 
200 POKE (844), 32 
210 P0KE(845),120 
220 P0KE(846),210 
230 P0KE(847),96 

232 REM SET UP STORAGE AREA FOR ONE 

233 REM LINE OF HEX VALUES TO BE PRINTED 

235 DIM N1$(40),N0$(40) 

236 REM INITIALIZE CHARACTER COUNTER 

237 L=l 

238 REM THE VALUE OF 'K' DETERMINES 

239 REM THE STARTING ADDRESS. 

240 FOR K=49152 TO 65536 

241 I=K 

250 A=USR(K-65536) 

255 REM LINES 270-530 CONSIST OF A SUBROUTINE TO CONVERT ALL VALUES FROM 

256 REM DECIMAL TO HEXADECIMAL NOTATION 
270 B%=16 

280 D=A 

390 H$= M 0123456789ABCDEF" 

400 NO$(L)="" 

405 N1$(L)="" 

410 F?o=LOG(I)/LOG(B?o) 

411 REM BECAUSE THE DECIMAL TO HEX ROUTINE 

412 REM RETURNS A SINGLE '0' FOR VALUES 

413 REM OF A=0, LINE 416 CONVERTS 

414 REM ANY OF THESE ZERO VALUES TO 

415 REM A DOUBLE HEX '00*. 

416 IF A=0 THEN NO$(L )="00":GOTO 480 
418 G?o'=L0G(D)/L0G(B?o') 

420 FOR J=G% TO STEP -1 
430 X=INT(B?r3) 
440 C°'=D/X 

445 REM LINE 455 INSERTS A LEADING ZERO 

446 REM IN HEXADECIMAL VALUES OF LESS 

447 REM THAN 'F'(15). EX. , 7 , = , 07' ETC. 
450 NO$(L)=NO$(L)+MID$(H$,C?o+l,l) 

455 IF A<16 THEN NO$(L)=( '0 '+NO$(L)) 

460 D=INT(D-C?<;*X) 

470 NEXT J 

480 FOR 3=F% TO STEP -1 

490 X=INT(B?r:J) 

500 C?o=INT(I/X) 

510 N1$(L)=N1$(L)+MID$(H$,C%+1,1) 

520 I=INT(I-CS;*X) 

530 NEXT 3 
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532 REM SUBROUTINE FOR DECIMAL TO HEXADECIMAL CONVERSION ENDS HERE 

535 L=L+1 

536 REM LINE 542 CHECKS TO SEE IF THE 

537 REM REQUIRED NUMBER OF CHARACTERS 

538 PER LINE HAVE BEEN DONE. THE TEST VALUE 

539 NUMBER 33 *MUST* BE CHANGED TO A NUMBER 9 IF A "BARE" PET IS USED. 
542 IF L<>33 THEN 570 

545 PRINT Nl$(l)," ",N0$(1)," ",N0$(2)," ",N0$(3)," ",N0$(4)," ",N0$(5), 



546 PRINT " ",N0$(6)," ",N0$(7)," ",N0$(8)," 

547 PRINT N0$(11)," ",N0$(12)," ",N0$(13)," 

",N0$(17)," 
",N0$(22)," 
",N0$(27)," 
",N0$(32) 



",N0$(18)," 
",N0$(23)," 
",N0$(28)," 



548 PRINT N0$(16)," 

549 PRINT N0$(21)," 

550 PRINT N0$(26)," 
560 PRINT N0$(31)," 
565 L=l 

570 NEXT K 

600 REM THE PRINT STATEMENT FOR THE PET 

602 REM WITH NO PRINTER "BARE" SHOULD BE AS FOLLOWS 

606 REM PRINT Nl$(l);" ";N0$(1)," "; 

608 REM N0$(2);" ";N0$(3);" "N0$(4); 

610 REM " ";N0$(5);" ";N0$(6);" "; 

612 REM N0$(7);" ";N0$(8);" ";N0$(9) 

615 END 



",N0$(9)," 

",N0$(14)," 

",N0$(19)," 

",N0$(24)," 

",N0$(29)," 



",N0$(10)," 
",N0$(15)," 
",N0$(20)," 
",N0$(25)," 
",N0$(30)," 
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C6 
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COIN TIMID US MOTION GRAPHICS OR 
HOM TO FAKE A JOYSTICK MITH THE PET 

Alan K. Christensen 

1303 Suffolk 

Austin, TX 78723 



When using the PET graphics to represent motion 
it becomes apparent that the BASIC supported 
routines are not fast enough to allow smooth 
movement. If the keyboard and screen are ac- 
cessed directly the appearance of controlled mo- 
tion can be greatly enhanced. As an example I 
will use a short game written in BASIC although 
the techniques can be used by machine language 
programs with even better results . 

Let me first describe the game and then explain 
how the effects are produced. The initial ap- 
pearance of the screen is two walls at the right 
and left sides of the screen with a ball and 
pound sign (#) which I will refer to as a bat 
(see figure 1). The ball goes into motion and 
appears to bounce off the top and bottom of the 
screen and the walls. Each time the ball strikes 
a wall it causes part of the wall to disappear . 
The ball will also bounce off the bat and the 
player is able to control the motion of the bat. 
This is done with the keys surrounding the num- 
ber 5 As each key is pressed the bat moves in 
the same relative direction as that key was to 
key number 5 (see figure 2). For example if the 
number 8 is pressed the bat moves straight up. 
If the number 1 is pressed the bat moves along 
a diagonal towards the lower left side. The bat 
will continue to move for as long as the, key is 
pressed. The object of the game is to make the 
ball strike the grey area of the left wall be- 
fore it strikes the grey area of the right wall. 

Lines 5-100 of the program are initialization. A 
special input array is set up (more about this 
later) and boundary conditions are set. Lines 
80-90 print the walls. If the walls were placed 
directly on the screen the right wall could be 
one column further right and both walls could be 
extended one line. For this example I chose the 
simplest method of initializing the screen. 

The boundaries are memory locations 32768 thru 
33727. The characters on the PET screen are re- 
lated directly to the values in memory locations 
32768 thru 33767. The screen fills from left to 
right and is 40 characters wide therefore poking 
a value into byte 32768 causes a character to 
appear in the upper leftmost (home) position, 
byte 32768 + 39 is the upper rightmost postion, 
byte 32768 + 40 is the leftmost position of the 
second line and so forth until byte 33767 which 
is the lower rightmost character position. Table 
1 gives the values for each character to cause 
it to appear on the screen. Lines 25 & 30 set 
the conditions to keep the ball and bat from 
moving off the top or bottom of the screen. The 
grey areas of the walls provide the boundaries 
for the sides of the screen. The right grey 
area is actually the reverse field (rvs) of the 
left grey area therefore a peek (32768) would 
return a value of key & = 38 + 64 (for shift) = 
102 while a peek (32768 + 39) would return 102 
+ 128 (for rvs) = 230. This provides an easy 
method of detecting when the sides of the screen 
are reached (and in this example an indication 
that the game is over) . 

To provide motion for the ball a horizontal and 
vertical displacement are used. This is so the 
ball can move in directions other than up, down, 
sideways, or diagonal. X0 is 32768 + the column 
and Y0 is the line number with as top line. X 
and Y are increments which are added to X0 and 



Y0 to get the next position. (PI is the next 
position while P2 is the current position) . If 
the next position is beyond the top or bottom of 
the screen the direction of Y is reversed and 
the next position is set to the current posi- 
tion (lines 120-125) this provides a bounce 
The character on the screen at the next position 
is now checked (line 155). If this is equal to 
35, the pound sign, (line 160) then the bat has 
struck the ball and it bounces off at a new 
angle. The magnitude of vector (S,Y) is fix- 
ed at 1 so that the ball cannot outrun the bat. 
If the next position has a screen value of 160 
(32+128 for rvs blank) the white area of a wall 
was struck and the horizontal direction is re- 
versed (line 180) but the new position is al- 
lowed to stand causing the ball to move into the 
wall. Lines 18^-190 check for the winning or 
losing conditions. Finally in line 195 the next 
position is poked to the screen and the current 
position is blanked out (line 210). The current 
position is reset to the new position after 
looping to line 105 and the ball continues to 
move . 

The bat is supposed to respond to the player and 
so a different movement scheme is used. The key- 
board input routines supported by BASIC require 
one or more keys to be pressed and released for 
each input value to be received. This requires 
the player to tap at the keys like a woodpecker 
to control motion. To avoid this problem the 
program accesses byte 547 of the operating sys- 
tem working storage. When the interpreter is 
running the operating system places a unique 
value in this byte for each key that is pressed, 
(table 1 also gives these values, they are not 
the same as the screen character values) . These 
values are then translated to a displacement for 
the bat . 



The bat position is initialized and always kept 
at the actual address of the memory location 
which corresponds to the bats screen character 
position. Al contains the next position while 
A2 contains the current position. In lines 35-45 
an array E was set up with displacements stored 
at index values matching the values which may 
appear when any of the 8 keys surrounding number 
5 is pressed. All other values of E are zero. By 
using the value at Peek (547) as an index to E 
the proper displacement for that key is obtain- 
ed. For example when key number 2 is pressed, 
the value '18 appears at byte 547 and E(18)=40 
which when added to the current position gives a 
next position one line lower (see lines 130-135) 
but if no key is pressed byte 547 contains 255 
and since E(255)=0 the next position is the same 
as the current position and no motion takes 
place. The position is checked against the 
boundaries (line 140-150) and the screen is up- 
dated (lines 200-205). The program is now fast 
enough for the motion to appear continuous. 

One drawback to this input scheme is that even 
though the keyboard buffer is not used to con- 
trol the bat, it still fills up. Lines 310 and 
320 show how the buffer had to be emptied before 
using the BASIC input routines again in line 
370. When using the continuous keyboard input 
from a machine language routine it is important 
to leave the interrupt set to keyboard input or 
byte 547 may not get updated . 
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Figure 1 

Showing the placement of the wall boundaries 
at the beginning of the game 
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Figure 2 



TABLE 1 



:ey 


SCREEN 
VALUE 


KEYBOARD 
VAL (547) 




KEY 


SCREEN 
VALUE 


KEYBOARD 
VAL (547) 
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TABLE 1 (cont) 



KEY 



SCREEN 
VALUE 



KEYBOARD 
VAL (547) 



KEY 



SCREEN 
VALUE 



KEYBOARD 
VAL (547) 



c 


27 


7 


t 


59 


28 


\ 


28 


69 


< 


60 


5 


1 


29 


14 


= 


61 


1 


+ 


30 


59 


> 


62 


12 


^r 


31 


75 


? 


63 


20 



The screen character values for a shift-key is the value of the key +64. To get a reverse 
field (rvs) of a character (including shift-key characters) take the character value +128. 



Additional keyboard values : 

Home 74 

RVS 8 

STOP 4 (note pressing this key will still stop the program) 

Up, down curser 66 

Sideways curser 73 

Del 65 



PROGRAM LISTING 



5 REM *# WALL RPFAK *» 
10 REM AL*N K. CHHISTENSEN 
J5 REM AUSTIN, TEXAS 

20 DIM E<256) 
2 5 T = 32768 
30 H = 33727 

35 E(58) = -41 : E<50) = -40 * F(57) = -39 
4(1 E(42) = - 1 : E(*l> = 1 
45 C(26) = 39 : L"(16) = 40 '• F(25) = 41 
50 X0 = 32783 
55 Y0 = 11 
60 Al = 33149 
65 PI = 33189 
70 X = RNDd) -.5 « Y = SQR(1-X*X) 

75 , ii ii 
cLr 

80 FOR 1=1 TO ?5 



ii rail 



85 ? "ftf /■>-!' SPC< 33) 
rvs 

90 NEXT T 

100 REM «» END OF INITIALIZATION *• 

105 A2 = Al : P2 = PI 

110 X0 = XQ ♦ X : Y0 = Yd ♦ Y 



115 PI = X0 ♦ *0 • INI (Y0) 

120 IF Pi > H THEM Y = -Y S Pl=P? 

125 IF Pi < T THEN Y = -Y : Pl=P? 

130 I* = PEEK (547) 

135 Al = Al ♦ t(T«) 

14o IF PEEMA1) > in:) THEN Al=A? 

14 5 IF A} > H THFfJ Al=A2 

150 IF Al < T THEN A1=A2 

155 P% = PEEK(Pl) 

160 IF Pn <> 35 THfN 180 

lb5 X = SGN(-X) * PND(l) 

170 Y = SQ k <l- x *X) * SGN(P2-A?) 

175 PI = P2 

180 IF P$=160 THEN x=-X 

185 IF P% = 102 THEN 3l)0 

1V0 IF P% - 230 THCN AoO 

195 POKE Pl»87 

200 POKE Al»35 

205 IF A1<>A2 THEN POKE A2»32 

210 IF Pl<>P2 THEN POKE P2»32 

215 GOTO 1C5 
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PROGRAM LISTING (cont) 



300 REM »** WINNER *** 

310 GET A$ 

320 IF A $ <> "" THEN 310 

330 ?" . "SPC(12)"*CON6RATULATI0ns" 

home rvs 
340 FOR I = 1 TO 100 : NEXT I 

350 ?" j. "SPc<1 2) "congratulations" 

home 
360 FOR I = 1 TO 100 '• NEXT I 

370 GET A$ 

380 IF a$ = "" THEN 330 

390 GOTO 50 

400 REM #** LOSER **» 



410 GET A$ 

420 IF A* <> "" THEN 410 

430 ?"V l SPC(12)"|S0RRU^^TRY^iAGAlN' 

'home rvs 1 off rvs off'rvs 

44o FOR I = 1 TO 100 '• NEXT I 

45o ? " A"SP C (l2)'i SCRRY TRY AGAIN" 
home 

460 FOR I = 1 TO 100 : NEXT I 

470 GET AS 

480 IF A? = <mi THEN 430 

490 GO TO 50 

500 END 



THE SIEVE OF ERATOSTHENES 

Gary J. Bullard 

1722 S. Carson, #1502 

Tulsa, OK 74119 



Over 2000 years ago, a Creek geographer-astronomer named 
Eratosthenes devised a way of finding prime numbers that is still 
the most effective known. He simply started with the number 2 
and crossed out all multiples of 2. Then he took the next number 
that had not yet been crossed out (3) and proceeded to cross out 
all multiples of it. And so on until he had found all the prime 
numbers he was interested in. This method of finding prime 
numbers is called a "sieve" because the prime numbers fall 
through the holes created by crossing out all the non-prime 
numbers. 

So what? Well, this gives rise to an interesting program for the PET. 
Picture the 1000 character positions on your PET's screen as the 
numbers 1 to 1000. Now cross out all the positions that represent 
non-prime numbers. What you have left is a strange pattern that 
would make an interesting bathroom tile arrangement. It also 
shows the placement of the prime numbers occurring between 1 
and 1000. 

10 PRINT CHR$(147); 
20 DIM A(200) 

Line 10 simply clears the screen. PET users can use the CLR 
function rather than the CHR$(147). Line 20 reserves storage for 
the prime numbers we will extract later. (There are more prime 
numbers than you might think in the range of 1 to 1000.) 

90 FOR N = 2 TO 35 

95 IF PEEK(Nt32767) = 102 THEN 130 

100 FOR X = 32767t(2*N) TO 33767 STEP N 

110 POKE X,102 

120 NEXT X 

130 NEXT N 

This double loop is the meat of our program. We only loop 34 
times (2 to 35) because it is only necessary to test for multiples of 
primes up to the square root of your limit - in this case 
SQR(1000) = 31t. (I added a couple for good measure). Line 95 
checks the screen to see if our next potential prime has already 
been crossed out. Line 100 does the stepping across the screen, 
and line 110 does the "crossing out." Note that the PET's screen is 
actually addressable memory beginning at 32768(10). 



200 N = 1 

210 FOR X = 1 TO 1000 

220 Z = PEEK(32767tX) 

240 IF Z = 32 THEN POKE(32767tX),81:A(N) = X:N = Nt1 

250 NEXT X 

Now that we have crossed out all the non-primes, it is time to see 
what was left. This loop examines the screen to find the spaces. 
The index "X" will tell us what character we are looking at and the 
counter "N" will give us the next empty space in our table to store 
the prime number. Line 200 sets the table pointer to 1. Lines 
210-250 is the loop that examines the screen. Line 220 looks at the 
current character position and puts its value in Z. In this case, the 
value will be 102 if it is a crossed out position, and 32 if it has not 



been crossed out. Line 240 then tests the value of Z and either 
ignores it if it has been crossed out or saves it in our table if it is 
prime. 



300 GET A$:IF A$ = 



THEN 300 



This line simply causes the PET to pause while you admire its 
handiwork. When you are ready to see a list of the prime numbers, 
press any key. 

400 PRINT CHR$(147); 
410 FOR X = 1 TO 200 
420 IF A(X)=0 THEN STOP 
430 PRINT A(X); 
440 NEXT X 

Line 400 clears the screen again. Lines 410-440 recovers our prime 
numbers from the table and prints them. When the table returns a 
zero, then we are finished, and the program will stop (line 420). 

999 END 

I hope you enjoyed this little bit of updated history. I'm sure old 
Eratosthenes would have been very happy to have had a PET to 
play with, but even 2000 years later he is not out of date. 
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INSIDE PET BASIC 



Jim Butterfield 

14 Brooklyn Avenue 

Toronto, Ontario 

Canada M4M 2X5 



PET BASIC is pretty good: fast, powerful, and 
flexible. Most of the time you can write pro- 
grams without ever needing to know what's in- 
side. But there are a few handy things that you 
can't do without "dissecting" BASIC. Let's take 
a couple of examples. Suppose you want to look 
through a big program for some reason. You 
might have a small bug: say a variable, X4, 
ends up with a wrong value , and you want to find 
out why. You could list the program, a screen- 
ful at a time, looking for every time X4 is 
used; but eye fatigue starts to set in. Wouldn't 
it be nice to have a utility program to do the 
scanning for you? 

Program FIND 

Program FIND will do the job for you. To write 
such a program, though, we need to know how 
BASIC is built. The first line of your BASIC 
program starts at address 1025 (or 0401 hexadec- 
imal). That's where we must start our search. 
Each BASIC line will have the following format: 
The first two locations contain a pointer to the 
next line of BASIC; or if they contain zeros, 
there is no next line and this is the end of 
your program. The next two locations contain 
the BASIC line number. After that (starting at 
the fifth location) we have the BASIC line it- 
self. It's mostly in ASCII code, but keywords 
such as FOR, PRINT, or SQR are stored as special 
codes known as "tokens". At the end of the line 
we'll find the value zero. 

How do we use this information to scan BASIC for 
a given expression? First, we set our address, 
A, to 1025; that's where BASIC starts. Next, we 
skip over the first four bytes (pointer and line 
number) and search from A+4 to the end of the 
BASIC line. We'll recognize the end-of-line by 
the zero at the end. If we find the expression 
we want, we can output the line number by ob- 
taining it from A+2 and A+3. It's in binary, so 
we use the expression 256«PEEK(A+3)+PEEK(A+2) - 
printing this value will print the line number. 

When we reach the end of the BASIC line, we must 
go to the next line, of course. It will be 
right behind the zero that marked the end of our 
previous line; or we can use the pointer to jump 
ahead with A=256»PEEK( A+1 )+PEEK( A) . If the 
pointer is zero , we know that we have come to 
the end of the BASIC program and can stop. 



Program RESEQUENCE 



Let's move on to something more complicated. 
Suppose you want to renumber your BASIC program. 
Since we know how the line numbers are stored in 
BASIC, it seems easy; we'll just change them to 
the new values. There is a hitch, however. 
What happens if your program contains a GOTO 300 
statement - and now line 300 is renumbered so 
that it becomes line 380? Problems - that's 
what happens. 

What we must do is search out all the GOTOs and 
GOSUBs, including those included in ON., state- 
ments, and be ready to change the old line num- 
bers to new ones. One way of doing this is to 
build a table of "old" addresses, match them 



with the "new" line numbers, and then correct 
them after renumbering has been accomplished. 
To help make things more complicated, we have 
two different ways of using the THEN statement. 
If we have a line such as IF J=12 THEN Y=2, 
there is no line number reference to correct. 
On the other hand, if we have IF J=12 THEN 530, 
we must be ready to fix up 530, replacing it 
with a new line number if necessary. 

More difficulties: if we have a statement which 
says, for example, GOTO 5, and with the renum- 
bering we want to change it to GOTO 100, we 
won't have space! And making space isn't that 
easy: you may recall that the lines of BASIC 
are "chained" together with pointers; if we 
lengthen a BASIC line, all the pointers will 
need to be fixed up! This last problem is too 
tough to resolve in a simple manner - let's 
sidestep it by printing a warning notice if it 
should occur . 

How do we approach this job? We separate the 
program into three phases. Phase 1 looks 
through the program for line number references 
and builds a table. Phase 2 does the actual re- 
numbering (the easiest part of the whole job). 
Phase 3 looks through the program again and cor- 
rects the line number references. How do we 
look through the program? The same way as with 
program FIND. We're looking for three keywords: 
GOTO (token 137), GOSUB (141) and THEN (167). 
Sometimes we'll also allow a comma (44) so that 
statements such as ON X GOTO 100,200,300 will be 
allowed. You'll see this testing for tokens on 
line 60220 of RESEQUENCE. 

If we find one of these keywords, we must con- 
vert the following ASCII numbers into a value V 
corresponding to the line number. During Phase 
1 , we build these line numbers into a table at 
60090. Phase 2 is a snap. In lines 60030-60040 
we change the line number and then check to see 
if the old number was in table V%. IF so, we 
fill in the cross-reference. Phase 3 is the 
long one . We must repeat the search of Phase 1 . 
Then, in 60110 to 60150 we must build the new 
line number (in ASCII) and insert it - with ap- 
propriate tests and warning notices. 

Making Them Work 

Both FIND and RESEQUENCE are written in BASIC. 
That means that they will have to reside in 
PET's memory along with the programs they are 
dealing with. RESEQUENCE is constructed so that 
it doesn't renumber itself, of course; and FIND 
will examine itself, reporting any occurences of 
the search string. Another problem arises, how- 
ever : how can you get two programs into the PET 
at the same time? We need to load either FIND 
or RESEQUENCE together with the program that is 
being processed. A normal PET load wipes out 
the old program when a new one is loaded . You 
could always add FIND or RESEQUENCE by entering 
it at the keyboard; this would add the utility 
program to the existing program in memory. But 
such a procedure is lengthy and it would be easy 
for errors to creep in. There must be a better 
way. One good way is to use the screen as a 
"holding buffer". You could load program FIND, 
and list it onto the screen. Then load the pro- 
gram you want to search. FIND will be wiped out 
of memory, but it's still on the screen - so you 
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can move the cursor back to displayed line 9000, 
and hit RETURN eight times. FIND will be re- 
stored to memory, where it now shares space with 
the program to be scanned. This doesn't work 
too well with a longer program like RESEQUENCE, 
however. The program is too big to fit on the 
screen - much too big. There must be another 
even better way. Larry Tessler of Sphinx opened 
the door with his program UNLIST, which made 
true program merging possible for the first 
time. Since this breakthrough, an even better 
method has been devised by Brad Templeton of 
Toronto . 

UNLIST - A Procedure for Merging Programs 

Here's how it works. Be sure to follow the in- 
structions carefully and exactly. Prepare the 
programs you will want to merge in the following 
manner. Load the program. Place a blank tape 
into your cassette unit . Now type : 

OPEN 1,1,1:CMD 1 :LIST 

When the tape stops, type: 

PRINT* 1: CLOSE 1 

and your merge tape is ready. At a later time, 
when you want to merge the program , here ' s what 
to do . First , mount the merge tape you previ- 
ously prepared and type OPEN 1. Now clear the 
screen, give exactly four cursor downs, and type 
the following, but DO NO HIT RETURN: 

P0KE61 1,1: P0KE525 , 1 : P0KE527 , 1 3 :?"h" 

(h is cursor home; shows as reverse S) . Don't 
hit return: press cursor home and give six (6) 
cursor downs. Now type exactly the same line 
(two lines below the first line) and then hit 
RETURN. The tape will more; the merge will take 
place; and finally, an error notice will print 
between the two lines. Stop the tape if it's 
still going, and then type CL0SE1. Miraculously 
the merge has taken place! 

How does it work? It's a little complex; but if 
I hinted that POKE 611,1 transfers control away 
from the PET's keyboard to the cassette tape, 
you'd have part of the story. And if I mention- 
ed that poking 525 and 527 simulates a RETURN 
key being hit, you'd have another part. But, 
you don't need to know what makes it work in 
order to use it. Use it; benefit from it; and 
enjoy it. 



FIND for PET 

Need to search a program for an express, a var- 
iable , or a keyword? Slip program FIND in be- 
hind your program (it's not very long) - then 
insert a line 1 to say what to search for . . . 
and the job's done. Every line in memory which 
contains the same expression as line 1 will be 
reported. This includes line 1 itself, of 
course , and any lines in program FIND ... as 
well as the program you're searching. The 
program is listed here spaced out for read- 
ability - close in the spaces when you input to 
save space . 



9000 A=1025 : X=PEEK(1029) FOR J=1 TO 1E3 : FOR 
K=A+4 TO A+83 

9001 P=PEEK(K) : IF P=X THEN G0SUB 9005 

9002 IF POO THEN NEXT K 

9003 A=256«PEEK(A+1)+PEEK(A) : IF A>0 THEN 
NEXT J 

9004 STOP 

9005 FOR L=1 TO 80 : Y=PEEK(1029+D : FI Y=0 
THEN ? 256*PEEK(A+3)+PEEK(A+2); : RETURN 

9006 IF Y=PEEK(K+L) THEN NEXT L 

9007 RETURN 

Example: to find all FOR statements in a pro- 
gram; insert FIND (above) and then insert line 1 

1 FOR 

Now invoke FIND with RUN 9000. The program will 
print 1 followed by any program lines containing 
FOR followed by 9000 9000 9005 (9000 prints 
twice because it contains two FORs) . 

FOR is a keyword, and doesn't store as three 
separate characters, so you wouldn't find it 
if you searched for characters F0. This can be 
handy: if you were looking for variable F you 
wouldn't get all the FORs printed. 

Modifications: if you squeezed P=0 just ahead 
of RETURN on line 9005 (it's a tight squeeze) a 
line number would print only once even when it 
had multiple matches; you might or might not 
want this feature. 

IMPORTANT: Don't forget to wipe out line 1 and 
program FIND when you're finished with them. 



RESEQUENCE for PET 



60000 
60010 



60020 
60030 



W?(J)=M 



END 

T0= : DIM V?(100),W?(100) : G0SUB 60160 

FOR R=1 TO 1E3 : GOSUB 60210 

IF G THEN GOSUB 60090 : NEXT R 

GOSUB 60160 : FOR R=1 TO 1E3 : N=INT 

(M/256) : POKE A-1 ,M-N*256 
60040 POKE A,N : V=L : GOSUB 60070 

GOSUB 60170 : IF G THEN NEXT 
60050 GOSUB 60160 : FOR R=1 TO 1E3 : GOSUB 60210 

: IF G THEN GOSUB 60110 : NEXT R 
60060 ?"*END»" : END 
60070 J=0 : IF TOO THEN FOR J=1 TO T : IF V?(J) 

<> V THEN NEXT J : J = 
60080 RETURN 
60090 IF VO0 THEN GOSUB 60070 : IF J=0 THEN T= 

T+1 : V?(T)=V 
60100 RETURN 

60110 GOSUB 60070 : IF J=0 THEN RETURN 
60120 W=W%(J) ; IF W=0 THEN ?"G0" ; "L" ;L; "?" : 

RETURN 
60130 FOR D=A TO B+1 STEP-1 : X=INT(W/10) : 

Y=W-10*X+48 : IF W=0 THEN Y=32 
60140 POKE D,Y : W=X : NEXT D : IF W=0 THEN 

RETURN 
60150 ?"INSERT";W?(J);"L";L 
60160 F=1025 : M=90 
60170 A=F : M=M+10 
60180 F=PEEK(A)+PEEK(A+1)*256 

PEEK(A+3)*256 : A=A+3 
60190 RETURN 
60200 S=0 
60210 V=0 : A=A+1 : B=A : C=PEEK(A) : IF C=0 

THEN GOSUB 60170 : ON G+2 GOTO 60210,60190 
60220 IF C0 137 AND C0141 AND C <>167 AND COS 

GOTO 60200 



RETURN 



L=PEEK(A+2)h 
G=L<6E4 



153 



60230 A=A+1 : C=PEEK(A)-48 : IF C=-16 GOTO 60230 
60240 IF 0=0 AND C<9 THEM V=V»10+C : GOTO 60230 
60250 S+44 : A=A-1 : RETURN 

RESEQUENCE can sit quietly behind your program. 
When you say RUN 60010, your program is renum- 
bered. RESEQUENCE gives error notices if: 

A. a GOTO or GOSUB statement wants to go to 
a non-existant line; 

B. there isn't enough room for a new (higher) 
line number. 

In both cases you're given the (new) line number 
where this happens. RESEQUENCE doesn't run fast 
(allow about a second per line, more for large 
programs), but it's dependable and very useful. 



Program comments: Line 6000 stops the user pro- 
gram if it gets here. Lines 60010-60020 extract 
all GOTO, GOSUB, and THEN references and build 
them into a table. Lines 60030-60040 renumber 
all lines, and cross-references the table if 
needed. Line 60050 updates all line references. 

Subroutines: 60070 looks for an entry in the 
line number table. 60090 inserts a new entry 
into the table. 60110 revises a line number 
reference. 60160 starts a new scan of the user 
program; 60170 continues the scan with the next 
line. 60210 scans the user program for GOTOs, 
etc.; value S is used to accomodate ON A GOTO 
. . . type situations . 



Author's Notes: 

Reader questions suggest that the following additional information may be 
useful: 

UNLIST procedure: when you mount the previously prepared merge tape and 
type OPEN 1 . . . 

-follow this statement with a carriage return in the normal 
way; 

-PET will want to read tape; press PLAY as requested. Tape 
will move, and eventually PST will report FOUND. Now clear 
the screen and continue with the POKE 611,1 procedure. 

RESEQUENCE: the program as written will handle line numbers up to 32767, 

which gives lots of scope in program-writing. If you need to 
handle higher line numbers, change V|l to VI throughout the 
program. 

Using Vi( saves space in memory, since integer arrays are 
stored very efficiently. However, the highest integer allowed 
is 32767,- so that higher line numbers won't fit. 

It's probably obvious that the user program must have all its 
lines below 60000 - since RESEQUENCE itself starts at that point. 
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6502 INTERFACING FOR BEGINNERS; 
THE CONTROL SIGNALS 



Marvin L. De Jong 

Dept . of Math-Physics 

The School of the Ozarks 

Pt. Lookout, MO 65726 



By now your breadboard should look like a rat's 
nest so we shall add just a few more wires. So 
far you have used several decoding chips to pro- 
duce device select pulses (also called chip sel- 
ects, port selects, etc.) These pulses activate 
a particular I/O port, memory chip, PIA device, 
interval timer or another microcomputer compon- 
ent. Almost all of these components must "know" 
more than that they have been addressed . They 
must know if the microprocessor is going to READ 
data from them or WRITE to them. The R/W con- 
trol line coming from the R/W pin on the 6502 
provides this information. It is at logic 1 for 
a READ (typically LDA XXXX) and at logic for 
a WRITE (typically STA XXXX). 

If you have ever tried to wrap your mind around 
timing diagrams for microcomputer systems you 
soon realize that system timing is also import- 
ant . Suppose that a memory chip is selected by 
a device select pulse. A 21L02 chip, after 
being selected, must decode the lowest 10 add- 
ress lines itself to decide which of its 1024 
flip-flops will become the output data. This 
takes time , so the data at the output pin is not 
ready instantaneously. The 6502 simply waits 
for a specified amount of time, and at the end 
of this period it reads the information on the 
data bus. If the access time of the chip is too 
long, the 6502 will read garbage; otherwise it 
will get valid data. 

Likewise, during a WRITE cycle, the microproces- 
sor brings the R/W line to logic 0, selects the 
device which is to receive the data, and at the 
end of a cycle it signals the divice to read the 
data which the 6502 has put on the data bus. 
The signal which successfully concludes both a 
READ and a WRITE instruction is the so-called 
phase-two clock signal symbolized by 0^ . In 
particular, it is the trailing edge (positive to 
zero transition) of this signal which is used. 

All the timing for the microcomputer is done by 
the crystal oscillator on the microcomputer 
board and the clock circuitry on the micropro- 
cessor itself. A clock frequency of 1 MHz pro- 
duces a machine cycle of 1 microsecond in dura- 
tion. Near the beginning of the cycle the ad- 
dress lines change to select the divice which 
was addressed , and the R/W goes to logic 1 or 
logic depending on whether a READ or a WRITE 
was requested. If a READ was requested, some 
device in the system responds by putting data on 
the data bus. Typically this happens during the 
second half of the cycle when 0« is at logic 1 . 
Finally, at the end of the cycle , but before the 
address lines or the R/W line have changed , t 
changes from logic 1 to logic 0, clocking the 
data into the 6502. The same kinds of things 
happen during a WRITE cycle, except that now the 
external device uses the trailing edge of the 0* 
signal to clock the data, while the 6502 puts 
the data on the bus at a slightly earlier time 
in the cycle. For details refer to the 6502 
HARDWARE MANUAL. 

The circuits you have built so far, together 
with a few more chips, will demonstrate the eff- 
ect of the control signals. Refer to Figure 1 
of the last installment of this column (MICRO, 
Issue 6, p. 30), and to Figure 1 of this issue. 
You will see the LS145 and the LS138 have not 
been changed too much, in fact all of the conn- 
ections to the LS145 should stay the same. The 
device select pulse from the LS145 goes to G2A 



as before , but another signal goes to G2B in the 
new Figure 1 . For the moment disregard the low- 
er LS138 and LS367 in Figure 1 of this issue. 
The new signal to G2B of the LS138 is our W RITE 
signal. It is produced by NANDING the "r7U" sig- 
nal with 0* and it is an active-low signal . On 
the KIM-1 it is called RAM-R/W and is available 
on the expansion connector. Most other 6502 
systems will very likely also have a RAM-R/W 
signal . 

Its effect in Figure 1 is to inhibit the devic 
select pulse from the LS138 whenever the R/W 
line is high (during all READ instructions), 
but to allow the device select pulse to occur 
when the R/W line is low and t is high. Thus, 
the top LS138 in Figure 1 selects output ports 
only, and the device select pulse from it term- 
inates on the trailing edsce of the 0s, producing 
a logic to logic 1 transition simultaneously 
(almost) with t . This pulse is inverted by the 
LS04. Consequently, a WRITE instruction pro- 
duces a positive pulse at the G inputs of the 
LS75 whose duration is about 1/2 microsecond and 
whose trailing edge coincides with Z . 

The 74LS75 is a 4-bit bistable latch whose Q 
outputs follow the D (data) inputs only when the 
G inputs are at logic 1 , in other words during 
the device select pulse from the LS04 inverter. 
The trailing edge of this pulse latches the Q 
outputs to the value of the D inputs during the 
device select pulse. If you had a great deal of 
trouble following this, you may want to check 
the reverse side of this page to make sure there 
is nothing valuable on it and then destroy this 
by burning or shredding! Otherwise proceed to 
to the experiment below. 

Connect the circuit shown in Figure 1 , omitting 
for the time being the lower LS138 and the 
LS367. You can also omit the connection of add- 
ress line A3 to G1 on the top LS138 if G1 is 
connected to +5V as was indicated in the last 
issue. In other words, simply add the LS04 and 
the LS75 to your circuit of the last issue. The 
RAM-R/W signal must also be generated if your 
6502 board does not have one. Simply use one 
inve rter on the LS04 to invert the R/W signal to 
R/W, then NAND it with the , and run the out- 
put of the NAND gate to the G2B pin on the LS138. 

The address of the device is 800F if the connec- 
tions are made as shown in the figure . If other 
pins on either the LS145 and/or the LS138 are 
changed the address will be different. The 
switches shown connected to the D inputs may be 
implemented with a DIP switch or jumper wires. 
An open switch corresponds to a logic 1 while a 
closed switch is logic 0. Set the 4 switches to 
any combination then load and run the following 
program : 



0200 8D OF 80 



STA DSF. 



The LEDs should indicate the state of the 
switches. If you add the statements 



0203 4C 00 02 



JMP START 



then you should be able to change the switches 
and the LEDs will follow the switches. Try sub- 
stituting an AD OF 80 (LDA DSF) for the 8D OF 80 
instruction. Nothing should happen, even though 
the same address is being selected, because on 
LDA instruction the R/W line is high, inhibiting 
the LS138 from producing a device select. Fin- 



ally, connect the data lines DO-3 from the 6502 
to the D- inputs of the LS75, making very sure 
that the LS145 is de-selecting other locat- 
ions. On the KIM-1 this means that pin 1 of the 
LS145 is connected to pin K on the application 
connector and pin 9 of the LS 145 is connected 
to pin J. The appropriate pull-up resistors 
must also be added. With the data lines conne- 
cted run the following program: 



0200 
0202 



A9 04 
8D OF 80 



LDAIM $04 
STA DSF. 



Play around with different numbers in LDAIM ins- 
truction and explain your results. If nothing 
seems to make sense, it may be that your data 
lines need to be buffered, a topic we will take 
up next issue. If your results make sense you 
will have discovered that we have configured a 
4-bit output port whose address is 800F. Adding 
another LS75 to connect to data lines D4-D7 and 
whose G connections also go to the output of the 
LS04 will give an 8-bit output port. Seven 
other output ports, addresses 8008 through 800E, 
could be added using the other device select 
signals from the LS138, LS04 inverters, and LS75 
latches. 

If you want to make an input port wire the cir- 
cuit for_the lower LS138 in Figure 1. If you 



don't have much more room on your circuit board 
you might want to simply reconnect the upper LS- 
138 to become the lower LS138. A couple of con- 
nections do the trick. Set the switches to any- 
thing you like and run the program below. 

KIM-1 users should see the hex equivalent of the 
switch settings appear in the right-most digit 
on the display. Owners of other systems can 
omit the last two lines of the program, stop it, 
and examine the location 00F9 to see that the 
lowest four bits agree with the switch settings. 
Experiment with other switch settings to make 
sure that everything is operating correctly. 

The completed circuit of Figure 1 gives one 4- 
bit output port (provided the data lines are 
connected to the D inputs of the LS 75) and one 
4-bit input port, addresses 800F and 8007 resp- 
ectively. These two ports are easily expanded 
(two more chips) to become 8-bit ports. Like- 
wise the circuit of Figure 1 could be expanded 
to give a total of eight 8-bit input ports and 
eight 8-bit output ports. 

Next issue we will look at a slightly different 
input port, and we will look in more detail into 
three-state devices and the data bus. You may 
want to keep your circuit together until then. 



0200 AD 07 80 

0203 85 F9 

0205 20 1F 1F 

0208 4C 00 02 



START LDA DS7 Read input port data 

STA DISP and store it in location 00F9 . 

JSR SCANDS Jump to KIM display subroutine. 

JMP START Repeat program. 



OUTPUT PORT 




Figure 1 . A four-bit input port and output 
port interface for the 6502. 
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6502 INTERFACING FOR BEGINNERS: 
BOFFERING THE BOSSES 

Marvin L. De Jong 

Dept. of Math-Physics 

The School of the Ozarks 

Pt. Lookout, MO 65726 



The address bus is the set of 16 conducting 
lines interconnecting the 6502 and numerous 
other integrated circuits in the computer system 
such as memory chips, PIAs, decoding circuits, 
etc . On my 8K memory board the address bus is 
connected to 64 memory chips. The address bus 
carries the addressing information from the 6502 
to the other components in the system. It is, 
consequently, a one-way bus, in contrast to the 
data bus which carries signals both ways. 

The control bus is a set of conductors which 
connect the 650_2 control _s.ign.als (0 , R/W, 
SYNC, RST, NMI, IRQ, RDY, and SO) with the other 
components in the microcomputer system. Some 
control signals originate in the 6502 and these 
are bussed to the system. Other control signals 
e.g. NMI and IRQ, originate somewhere in the 
system and are bussed to the 6502. None of the 
control signals use a bi-directional bus like 
the data bus . 

Finally, the data bus is a set of 8 conductors 
connecting the 6502 and the other devices in the 
system. It presents a special problem because 
it is required to carry information two ways , 
hence the name "bi-directional data bus." On a 
WRITE command the data bus carries an 8-bit word 
(one bit on each line) from the 6502 to a memory 
location, while on a READ command the data bus 
carries information from a memory location to 
the 6502. On my 8K memory board each data line 
is connected to 8 memory chips. 



WHY BTTFFRR? 

There are two reasons for buffering uni-direc- 
tional busses like the address bus and the con- 
trol bus : 

1 . The address and control pins on the 6502 are 
rated to drive one standard TTL load . In any but 
the simplest computer system there will be 
heavier loading than this. 

2. Every conductor including those which make 
up the busses has some capacitance . Capacitors 
require time to charge and discharge and "dis- 
tort" rapidly changing waveshapes. Buffer chips 
can drive a much larger capacitance than the 
6502, and consequently may be inserted to pre- 
serve the integrity of the waveshapes of the 
signals. 

In addition, the data bus requires a special 
kind of buffer. Recall that the microprocessor 
is capable of reading data from any of 65,536 
devices. But only one at a time, please. All 
the others should act as if they are not there , 
which means they should be disabled somehow. If 
two devices are Jaoth attached to a data pin, one 
trying to raise it to logic 1 and the other try- 
ing to lower it to logic , not even a prophet 
can predict the result . The third reason for 
buffering applies only to bi-directional busses 
and may be summarized : 

3. Buffers must be capable of isolating the bus 
from all of the devices on the bus except those 
which have been addressed (for example, the 6502 
and an input port) and between which data is be- 
ing transmitted . 



BUFFER/DRIVER CHIPS 

We mentioned earlier that all the bus pins on 
the 6502 are rated to drive one standard 7400 
series TTL load. This means that you could con- 
nect about four 74LS00 series chips to a bus 
line , but if you tried to hang additional chips 
on these lines the circuit would probably not 
operate. For the address bus and the control 
bus the solution is to connect the 6502 pins di- 
rectly to two 7404 inverters (or 74LS04's). A 
7404 can drive 10 standard TTL loads and about 
40 LS loads, while a 74LS04 can drive 20 74LS00 
series loads. This should provide adaquate 
drive for most systems, provided the bus length 
is not to great. If you have a KIM-1 schematic 
you will note that both R/W and are buffered 
in this manner , but that none of the address 
lines are buffered because the KIM-1 system is 
small enough to not require buffering. However 
if you expand, the address lines will also re- 
quire buffering. As an example, see KIM USER 
NOTES, Issue #7,8 where Jim Pollock gives a KIM 
to S-100 circuit. 

There are other chips called Bus Buffers/Drivers 
which can be used either on uni-directional 
busses or the bi-directional data bus. They 
come in packages of four (quad), six (hex) or 
eight (octal) buffer/drivers to a chip. If you 
want to look up the specs on some of these chips 
here are a few of the more popular ones. 



74LS125 quad 
74LS126 quad 
LS367 hex 
8T97 hex 



DM8093 quad 
DM8094 quad 
DM8097 hex 
81LS97 octal 



All of these except the 81LS97 are readily 
available (Jameco, Godbout, Jade, etc.). The 
only place I have been able to find 81LS97& is 
Hamilton-Avnet . They are a bit more expensive 
and come in a 20 pin package , but they are nice 
because they can handle eight lines. Note that 
we have already used the 74LS367 to buffer ad- 
dress lines. Refer to the last several columns 
of this feature . 



The truth table and logic symbol for a typical 
buffer /driver are given in Figure 1. Carefully 
focus your beady eyes on the function of the G 
(gate) input. 



Note that when G is low the output follows the 
input logic level. The device is then doing its 
thing, namely driving the particular bus line to 
which it is attached . The inversion circle in- 
dicates that the buffer/driver is active (works) 
when the gate signal is a logic 0. Some buffers 
have no inversion circles, and they will be 
active when the gate is at logic 1. Perhaps the 
most important feature is the third state of the 
output in the truth table , which we have label- 
led "disabled." When the gate is high the de- 
vice behaves as if it were disconnected from the 
bus, that is just as if a switch in series with 
output were opened . This property is the reason 
for calling these devices "three-state buffer/ 
drivers" or" or "TRI-STATE buffer /drivers." 
(TRI-STATE is a trademark of National Semicon- 
ductor.) 
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Figure 2 shows how an LS 125 might be used on 
the bi-directional data bus. Only two bus lines 
are shown for simplicity. During a WRITE in- 
struction the R/W line is low, enabling the buf- 
fers which drive the signals from the 6502 to 
the external devices. The other buffers which 
drive the 6502 are disabled. Analyze what would 
happen if they weren't disabled! During a READ 
instruction the R/W line is high, it is inverted 
by the LS04, and it enables the buffers driving 
the signal from the external devices to the 
6502. 

The scheme shown in Figure 2 is not the only 
possibility. For example, the S-100 bus would 
not have pins 3 and 5 connected , nor pins 8 and 
12 connected. Instead, the data bus is divided 
into two separate busses at this point . The bus 
lines connected to pins 3 and 8 become a "data 
out" bus, while the lines connected to pins 5 
and 12 become a "data in" bus. I am not aware 
of all of the advantages and disadvantages of 
this scheme, so we will not pursue it further. 

AN EXPERIMENT 

Connect an LS125 as shown in Figure 3. Note 
that RESET will very likely cause all the LEDs 
to light. Now run the following program: 



0000 4C 00 00 



START JMMP START 



This is an infinite loop. Do not try to relocate 
the program or the experiment may not work. You 
should observe that the LEDs on DO and D1 are 
off while the other two are one. Can you ex- 
plain why before I do? 

Analyzed by clock cycles the activity on the 
data bus may be summarized as follows: 



The LEDs connected to D3 and D2 get a pulse once 
every three clock cycles, which the eye inter- 
prets as a continuous glow. Now connect the 
gates (pins 1,4,10,13) to +5V instead of ground. 
None of the LEDs light. Why? 

AN OBSERVATION 

Refer to Figure 1 in the "INTERFACING " 

column in MICRO #7. The input port illustrates 
how a buffer/driver isolates the data bus. 
Note that the device select pulse is connected 
to the gate of the LS367. Thus, only when the 
address lines select the input port and the 6502 
is in the READ- state does the LS367 control the 
data lines. Otherwise it is disabled and the 
6502 gets its data elsewhere . 

The output port of the same circuit illustrates 
another point . Suppose we had say eight output 
ports. Data lines D0-D7 would each have eight 
LS inputs hanging on them, and the 6502 would 
probably be unable to drive them. The solution 
would be to buffer the data lines from the 6502 
to the output ports. In this case one would 
probably connect the R/W line to the buffer/ 
driver gates. 



AN APPLICATION 
Again refer to Figure 1 in this column in MICRO 
# 7. Recall that the data lines were to be con- 
nected to the D inputs of the LS75 to complete 
the output port, replacing the switch. A com- 
plete 8-bit output circuit, with buffering, is 
shown in Figure 4. The device select circuitry 
is not repeated here . Up to eight output ports 
can be implemented using the device select 
pulses from the LS138. All you have to have 
are LS 75s. The buffering shown in Figure 4 
would be more than adaquate for eight ports. 

The 8-bit port with LEDs attached can be 
used as a debugging tool among other things. 
At a point in a program where you suspect 
trouble, and want to see the STATUS REGISTER 
for example, put a BREAK command. The last 
thing on the stack after a break is the status 
register contents. So, the interrupt vector 
should point to a program which pulls 
the last word off the stack and loads it at 
the address of the output port, STA $800F. A 
little panel could be made which indicates 
LED goes with which flag. 

The scheme just mentioned can obviously be 
varied to indicate the contents of any of the 
important registers. One could get very elegant 
and use four ports to indicate X, Y, accumulator 
and status register simultaneously. Better 
yet , use the information you have learned to 
display the contents of X,Y,A, and P while the 
computer is in the single-step mode. 

What's next? I hope to go into a keyboard input 
port in a little more detail, then look at a 
memory interface, unless I get some other 
ideas that is. Anyway* you ought to step out from 
among the trees to get a look at the forest by 
taking a long and studied look at Figure 1.1 of 
the M0S TECHNOLOGY HARDWARE MANUAL, the first 
figure in the book. A lot of the ideas we have 
been discussing are summarized there in a dia- 
gram of the microcomputer system as a whole. 



Parts list of components used for the experi- 
ments. 



AP Circuit Board 

(holds 8, 16-pin DIPs) 

coil , #22 wire 

LEDs 

!Edge connector for KIM-1 

74LS145 

74LS138 

74LS04 

74LS367 
2 74LS75 
2 74LS125 

1 74LS76 

2 4.7K to 10K resistors 
2 DIP switches 
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E> 






12 



gw> 



E> 






E> 




An LS125 and LS04 in a bi-directional data bus buffering circuit. Only 
two data lines are shown buffered. Four LS125s would be required for 
all eight data lines. In this scheme the "write" buffers and "read" 
buffers are alternately disabled by the R/W line. Sometimes they are 
also disabled by device select pulses. 
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To Memory, I/O Ports, 
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6502 INTERFACING FOR BEGINNERS: 
AN ASCII KEYBOARD INPUT PORT 

Marvin L. De Jong 

Dept. of Math-Physics 

The School of the Ozarks 

Pt. Lookout, MO 65726 



Introduction 

Many computer systems utilize a keyboard as an input device to 
get data or instructions from the outside world. KIM and TIM 
systems interface with teletype keyboards in which a 7-bit ASCII 
word is sent one bit at a time to the computer. This is called "serial 
input" and it is very common. Of course, the computer is capable 
of reading all 7 bits of an ASCII word in one byte. When operated 
in this way the keyboard input is just another location in memory, 
and the mode is sometimes referred to as "parallel." We will 
assume that the ASCII keyboard makes all 7 bits available at once 
and that it produces a positive strobe signal when the ASCII data is 
stable. 

The following ingredients are necessary to implement a parallel 
keyboard input port. 

1) A device select pulse DS for the memory location of the 
keyboard 

2) Three-state buffer/driver connecting the keyboard to the data 
bus when the device select pulse occurs, but disabling it otherwise 

3) A means for the keyboard to communicate with the 
computer; that is, the keyboard must inform the computer that a 
key has been depressed 

4) A means to store the data until the computer reads it into the 
accumulator 

Previous columns have dealt with the generation of DS pulse; it 
will be assumed that the appropriate circuitry is available. A single 
Intel 8212 Eight-Bit I/O Port will be used as ingredients 2), 3), and 

4) above. 

The 8212 I/O Port 

A logic diagram for the 8212 is shown in Figure 1. The chip 
contains three subsystems; the control logic (including the DS1, 
DS2, MD, STB, CLR inputs and the INT output), the data latch, and 
the three-state buffers. It all looks confusing but the situation can 
be simplified quickly. CLR will be tied to logic 1 to disable it. MD 
(for mode) is tied to logic O in the input mode. Examine the 
AND-OR control logic carefully to see that this last step in effect 
connects the strobe (STB) to the C inputs of the 8-bit data latch. 
The keyboard strobe will be connected to STB. When the STB is at 
logic 1 the Q outputs of the data latch follow the DI(1-7) inputs 
from the keyboard. The data is latched (stored at the Q outputs) on 
the trailing edge of the strobe. A single key depression results in 
the ASCII data being stored in the 8212, with one bit left over. 

Note that the STB is also connected to the C input on the service 
request flip-flop. The trailing edge of the strobe latches a logic O 
into the Q output of the flip-flop because the D input is tied to 
logic O. The Q output is inverted, ORed, and inverted again to 
produce a logic O signal at (NT whenever the strobe pulse occurs. 
The INT signal is used to communicate with the computer, telling 
it that data is available. Clearly it could be connected to the 
interrupt (IRQ or NMI) line on the 6502 to cause an interrupt. The 



interrupt vector would point to a routine to read the keyboard, and 
would have to include a LDA KYBD instruction. 

The address of KYBD appears on the address bus during the third 
cycle of the LDA KYBD instruction. The address bus is decoded to 
produce a device select pulse DS for this address, and the device 
select goes to pin DS? on the 8212. At the same time DS2 is 
brought to logic 1 by the R/W line from the 6502. When DS1 is low 
and DS2 is high the three-state buffers are enabled and the data 
from the keyboard is placed on the data bus to be read into the 
accumulator. 
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Figure 1 
Logic diagram of the 8212 I/O Port. 

Also observe that the DS1.DS2 signal is connected to the "set" 
input on the service request flip-flop. This puts a logic 1 at the Q 
output which removes the interrupt request. The data has now 
been read, the interrupt cleared, and the computer is free to go on 
its way until another key is depressed and the entire process starts 
over. 
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Experiment with the 8212 

A circuit to experiment with the 8212 is shown in Figure 2. You do 
not need an ASCII keyboard to construct this input port. The 74121 
produces the necessary strobe signal. The data switches shown in 
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Q 



STROBE - PULSE 



stb O 

mc> Mitt SELECT 



+5v 
Q — 

CLR. 
14 



Figure 2 can be jumper wires. For a device select I simply used the 
K1 select from the KIM-1, with a pull-up resistor added since the 
KIM-1 does not provide pull-ups for these selects. Any address 
decoding scheme to get a device select will do. 
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Figure 2. 
8-Bit Input Port. The 74121 may be used to strobe the switch 
settings into the 8212. The power connections to the 8212 are pin 
24 = t5V, pin 12 = CND. 



Connect the data output pins to the data bus of the 6502, but leave 
the INT disconnected. Connect the strobe output of the 74121 to 
the STB pin on the 8212. Write a short program to read the 8212 



and display the results on some output device. I used the following 
program for the KIM-1. 



0000 AD 00 04 
0003 85 FB 
0005 20 1F 1F 
0008 4C 00 00 



BEGIN LDA KYBD 

STAZ DISP 

JSR SCANDS 

JMP BEGIN 



K1 SELECT ON KIM USED 
PUT IN DISPLAY CELL 
JUMP TO KIM MONITOR 
REPEAT 



Load the program and run it. Set the switch settings for the data 
input to the 8212 to some value. Note that the switch settings have 
no effect on the displayed value. Now initiate the strobe pulse by 
closing the switch to the one-shot. This clocks the data into the 
8212 and the computer will read it. Change the switch settings and 
initiate another strobe pulse. The data displayed should 



correspond to the switch settings. To initiate a strobe pulse the 
switch to the one-shot must first be opened, then closed. 

Now connect the INT to the IRQ on your 6502. Run the following 
program: 



0200 A2 


00 




BEGIN 


LDXIM 


$00 


SET UP X AS COUNTER 


0202 4C 


02 


02 


HERE 


JMP 


HERE 


WAIT FOR INTERRUPT 


0000 AD 


00 


04 


INT 


LDA 


KYBD 


GET DATA FROM KYBD 


0003 85 


10 






STAZ 


MEM1 


SAVE DATA 


0005 E8 








INX 




BUMP COUNTER 


0006 86 


11 






STXZ 


MEM2 


SAVE COUNTER 


0008 40 








RTI 




RETURN FROM INTERRUPT 
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Be sure to set your interrupt vector to 0000, 17FE and 17FF on the 
KIM-1. Run the program starting at 0200. This is just an infinite 
loop which initializes the X register to zero. Now hit the strobe 
switch. Stop the program and examine the contents of 0010. It 
should be identical to the switch settings for the 8212 inputs. 
Examine 0011 where the X register was stored. Why doesn't it read 
01 corresponding to the single interrupt we produced? Because the 
mechanical switch used to initiate the strobe pulse was not 
"debounced." 

The program is very simple. The computer loops forever in the JMP 
HERE loop unless an interrupt occurs (IRQ pulled low by INT). 
When the interrupt occurs the computer jumps to the interrupt 



routine which reads the 8212 and stores the result in 0010. X is also 
incremented and stored in 0011. This was done just to give you a 
feeling for keybounce. The program then returns to the infinite 
loop where vou found it when you stopped the program. Change 
the switch settings on the 8212 then try the program again. 

Disconnect the INT from the 6502 and connect it to the Dl(8) input 
(pin 22) on the 8212. We will now poll the input port to see if any 
data is ready. If a strobe pulse has occurred, then bit seven will be 
low because INT is connected to this bit. Once the 8212 is read, 
INT goes high as does bit seven. Here is a program to 
demonstrate polled service. 



0200 20 20 02 
0203 4C 00 02 



MAIN JSR INPUT SIMULATES "MAIN PROGRAM" 
JMP MAIN 



0220 



ORG $0220 



0220 20 1F 1F 
0223 2C 00 04 
0226 30 F8 
0228 AD 00 04 
022B 85 FB 
022D 60 



INPUT JSR SCANDS DISPLAY LAST INPUT DATA 

BIT KYBD TEST BIT 7 

BMI INPUT LOOP IF BIT 7 = 1 

LDA KYBD ELSE, GET NEW DATA 

STA DISP STORE IT 
RTS RETURN TO MAIN PROGRAM 



Play around with it changing switch settings and strobing data. 
Basically what it does is test bit-7 to see if any new data is 
available. MAIN is just a dummy program. It represents almost any 
program which uses a keyboard input. For example, my Micro-ADE 
assembler, disassembler, editor polls the keyboard for new data 
and my BASIC interpreter does the same thing. Both programs 
jump to subroutines which wait until new data has been entered 
from the keyboard, then return to the main program to process 



that information. I used JSR SCANDS in my INPUT subroutine so 
you could see the data on the KIM-1 display. Normally one would 
not use the KIM-1 display in an input routine. Rather he would 
"echo" the input with an output routine which would write the 
data on his CRT or teletype. 

If you have an ASCII keyboard with a positive strobe you can do all 
of these same experiments but with an actual keyboard input. 
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May I show you something in a Ready to Ware? 
by: Bertha B. Kogut 
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REAL-TIME GAMES ON OSI 

David Morganstein 

9523 48th Place 

College Park, MD 20704 



This note discusses how real-time games can be written for OSI 
Challenger systems which use a serial terminal run from the ACIA. 
The terminal in my system is an ADM-3A, but the same principal 
applies to any other. The sample program which is included does 
use the cursor control procedure of the ADM-3A, but it is a 
common enough terminal that many readers will be able to use it 
directly. The cursor control is accomplished in a one-line 
subroutine and can be changed to another procedure easily. 
My original goal was to write video games, but I did not have a 
separate TV monitor, 440 video board and A/D convertor to do 
this. Fortunately, there was a way!! First, I'll discuss a procedure 
for polling the serial terminal keyboard and then the video display 
on the terminal. 

The basic idea was to use a PEEK command rather than an IMPUT 
statement. That way the program does not have to stop 
while the player ponders his response. This was the ONLY way to 
play Lunar Lander. The typical version gives the Captain unlimited 
time to ponder his response and minimizes crash landings. Several 
articles in BYTE and elsewhere talk about using A/D convertors 
and joysticks. Of course, this is a fine way to go, but the same 
effect can be created without the added hardware. 
The input byte from the ACIA appears at $FC01. To get a little 
appreciation for this, look at the ROM monitor routine starting at 
$FE00, this is called INCH in the OSD documentation. (See Figure 
1.) By peeking at 64513 ($FC01), you can read the byte sent by the 
terminal The bnly problem with this is the parity bit. That is, the 
bytes indicating the numbers 0-9 do not increase smoothly but 
have bit 7 set or not to insure parity. You can solve this by 



subtracting 128 when the PEEK (64513) is greater than 128. In the 
INCH routine this is accomplished with an AND #$7F, masking bit 
7. In this way, you get values from 48 to 57 for the keys 0-9. Now 
these values can be used to change the burn rate of the lunar 
lander. 

The program is fairly short and is generally self-explanatory. The 
polling is done in subroutine 5000. The test for 13 is needed since 
this is a null byte appearing before any keyboard entry has been 
made. As it now runs, extra boost can be given by typing a 
non-numeric. This should probably be prevented since it will 
allow a "sinking ship" to be saved, most unsporting!! 

The other interesting feature is the cursor control. This is 
accomplished in line 6000. The ADM-3A requires two control 
bytes be sent, CHR$(27) and CHR$(61), in order to set up the X and 
Y coordinates which follow. As given in the subroutine, the X 
value can be from 1 to 80 and the Y from 1 to 24, which correspond 
to the column and row (counting from the top left) of the position 
to be printed. Be careful when using this to not exceed these 
ranges. The cursor control is used to set-up a "lander control 
panel" and then update the "meter readings" as the play 
progresses. 

If your wondering what line 500 does, its used for timing. By 
adjusting the variable DE(lay), the speed of the game can be 
changed slightly. I was shooting for a twice per second update on 
the panel. Unfortunately, when the LOW FUEL WARNINC comes 
on the timing changes Well, you can't have everything. (I'm sure 
somebody out there will figure out how to correct this....) 
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START 
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$FC01 


ANDIM $7F 


PHA 




LDA 
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LSRA 
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BCC 


$FE0C 


PLA 




STA 


$FC01 


RTS 




GSR 


START 


CMPIM $52 
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BMI 
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CMPIM $3A 


BMI 


$FE32 


CMPIM $41 


BMI 


$FE18 


CMPIM $47 



165 



100 PRINTCHR$(26) :X=25: Yrl0:G0SUB6000 

104 PRINT'T UNAR LANDER ":Y=12:G0SUB6000 

106 INPUT"D0 YOU NEED INSTRUCTIONS (Y/N) ";N$ 

110 IFN$="N"G0T0190 

115 PRINT:PRINT 

120 PRINTTAB(10)"THIS IS A REAL TIME LUNAR LANDER SIMULATION. 

130 PRINTTAB(10)"T0 PLAY, MERELY ENTER THE POUNDS OF 

140 PRINTTAB(10)"FUEL WHICH YOU WISH TO BURN BY TYPING A DIGIT (0-9). 

150 PRINTTAB(10)"THE NINE GIVES MAXIMUM BURN, SLOWING YOU DOWN AT THE 

155 PRINTTAB(10)"FASTEST RATE. A ZERO GIVES NO BURN AND LETS YOU FRE 

160 PRINTTAB(10)"FALL.":PRINT:INPUT" READY. ..TYPE GO ";N$ 

190 PRINTCHR$(26):Y=4:X=28:G0SUB6000:PRINT"TIME TO FUEL EXHAUSTION" 

200 X=20:Y=7:GOSUB6000:PRINT"BURN RATE" 

220 X=50:GOSUB6000:PRINT"FUEL" 

230 Y=8:X=20:GOSUB6000:PRINT(LBS/SEC)"X=50:GOSUB6000:PRINT"(LBS)" 

240 Y=12:X=20:GOSUB6000:PRINT"VELOCITY":X=50:GOSUB6000:PRINT"ALTITUDE 

250 Y=13:X=20:G0SUB6000:PRINT"(FT/SEC)" :X=50:G0SUB6000: PRINT" (FT)" 

260 Y=18:X=20:G0SUB6000:PRINT"ESTIMATED TIME TO LANDING " 

270 Y=22:X=1:GOSUB6000:FORI=1T079:PRINT"-";:NEXTI 

275 Y=23:X=1:GOSUB6000:PRINT"0 " 

280 F0RI=1T07:X=10*I:G0SUB6000:PRINTI;:NEXTI 

290 X=30:Y=24:G0SUB6000:PRINT"ALTITUDE (X10,000 FT. )" :G0SUB6000 

310 VE=-100:MT$=" ":FU=10000:AL=80000:DE=5:BU=32 

320 F0RT=1T010000 

330 IFT/2=ING(T/2)THENPRINTCHR$(7) ; 

340 VE=VE+((BU-32)*25E8)/(25E8+AL*AL)) 

345 VE=INT(VE) 

350 AL=AL+INT(VE/2) 

360 IFAL<0G0T03000 

370 IFFU<500THENG0SUB2000 

380 FU=FU-BU/2 

385 IFFU<=OTHENFU=0:BU=0 

390 IFBU<=OTHENB$="NO BURN" :G0T0410 

400 B$=STR$(INT(FU/BU)) 

410 X=38 : Y=5 : GOSUB6000 : PR INTMT$ : G0SUB6000 : PRINTB$ 

420 X=21:Y=9:G0SUB6000:PRINTBU:X=50:G0SUB6000:PRINTFU 

430 X=22 : Y=14 : G0SUB6000 : PRINTVE : X=50 : G0SUB6000 : PRINTAL 

440 IFVE>=OTHENA$="ESCAPE" :G0T0460 

450 A$rSTR$(INT(AL/ABS(VE))) 

460 Y=19:X=38:GOSUB6000:PRINTMT$:GOSUB6000:PRINTA$ 

461 TA=INT((AL+500)/1000):IFTA>80THENTA=80 

462 IFTA<1THENTA=1 

463 Y=21:X=TA+1:G0SUB6000 
465 IFFU=0G0T0500 

470 GOSUB5000:IFZ=13GOT0500 

480 BU=12+4*(Z-48) 

490 IFZ=48THENBU=0 

500 FORTI=1TODE:A=SIN(10):NEXTTI 

505 VP=VE:AP=AL 

510 NEXTT 

2000 F0R0=1T02 

2005 X=36:Y=12:G0SUB6O0O:PRINT"L0W FUEL" 

2010 Y=13:G0SUB6000:PRINT"WARNING" 

2020 A=SIN(10) 

2030 G0SUB6000 : PRINTMT$ : Y=12 : G0SUB6000 : PRINTMT$ 

2035 ArSIN(lO) 

2040 NEXT3 

2050 DE=I:RETURN 

3000 SP=(VP+VE)/2 

3010 IFSP<-25G0T03200 

3015 PRINTrPRINT 

3020 PRINTTAB(20)"CONGRATULATIONS, YOU TOUCHED DOWN AT A MERE " 

3030 PRINTTAB(30)SP;" FT. /SEC. A SAFE LANDING !!!" 

3040 PRINT:PRINTTAB(20)" DO YOU WANT TC TRY AGAIN AND" 

3050 PRINTTAB(20)" " ; : INPUT"PR0VE IT WASN'T LUCK ";N$ 

3060 IFN$="N"THENRUN"BEXEC*" 

3070 G0T0190 

3200 PRINTCHR$(26) 

3210 N=40 

3220 F0RI=1T0N:X=1+INT(79*RND(I)):Y=1+INT(23*RND(1)) 

3225 GOSUB6000:PRINTCHR$(33+INT(15*RND(1)):GOSUB6000:NEXTI 

3230 X=20:Y=10:GOSUB6000:PRINT"YOU JUST BLEW A CRATER," 

3240 Y=11:G0SUB6000:PRINTABS(VE);" FEET IN DIAMETER, ON THE 

3250 Y=12:GOSUB6000:PRINT"SURFACE OF THE MOON. BETTER TRY AGAIN... 

3260 Y=14:G0SUB6000:INPUT" READY (Y/N) ";N$ 

3270 GOT0190 

5000 Z=PEEK( 64513) 

5005 IFZ=13THEN RETURN 

5010 IFZ>128THENZcZ-128:RETURN 

6000 PRINTCHR$(27) ;CHR$(61) ;CHR$(Y+31) ;CHR$(X+3l) ; :RETURN 
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650X OPCODE SEQUENCE MATCHER 



3. S. Green 

807 Bridge Street 

Bethlehem, PA 18018 



The motivation for writing this program stemmed 
from the fact that I have two machine code ver- 
sions of the same 650X assembler (ASM65 by Wayne 
Wall, dated 1 May 77 and 13 Jun 77 respectively) 
but I only have a listing of the older version. 
Both are just short of 4 K bytes long. I wished 
to make some local changes to the newer version 
and therefore needed to establish a means of 
correspondence between it and the listing. A 
disassembler is helpful here but not adequate 
because of discontinuities in the two codes 
which make forward references very difficult to 
correlate manually. 

I felt that when a program has been heavily mod- 
ified , many opcode sequence segments whould rem- 
ain constant even while their respective oper- 
ands differ . Therefore , what was needed was a 
program that would correlate and point to par- 
allel sequences of opcodes. 

Several assumptions were made in order to sim- 
plify the programming task. It was presumed 
that the basic order of appearance of major por- 
tions of the code would be the same since there 
seemed to be little advantage in shuffling the 
deck, as it were. Also, in order to minimize 
the effect of spurious matches, it was decided 
that only significant sequences need be reported 
and that no portion of the code would be report- 
ed as a match more than once . This position 
saves the program, for example, from reporting 
every possible LDA,STA opcode sequence pairing 
(or even all of those of the same address mode). 

Process Description 

As written , the scanning process of the matching 
program starts at the beginning of the two code 
strings, A and B, to be examined. Both initial 
positions are assumed to contian opcodes . An in- 
dex or pointer to the B string is, in effect, 
moved along B, from opcode to opcode, until a 
match with the current A string opcode is found . 
If no match is found before the B list is ex- 
hausted , the A pointer is moved to the next A 
opcode position while the B pointer is reset to 
its previous starting point . This general proce- 
dure is repeated until the A list is exhausted , 
at which time the program terminates. 

When a match is found , both pointers are moved 
together along their respective lists, from 
opcode to opcode, until the opcodes fail to 
match each other. If the matching sequence 
is significantly long the size and the start 
and end of both segments is displayed. The 
search for additional matching segments is res- 
umed from the end of the just-reported segments 
so that their opcode elements cannot be matched 
more than once. 

If the completed sequence is not significant , it 
is not displayed and the search is resumed from 
where the short sequence began, as if there 
had been no match at all . 

The definition of significance refers to the 
minimum acceptable number of matching codes in a 
continuous sequence. The particular values used 
are left to the user. While our experience has 

shown a minimum value of eight to be useful , the 
actual values should reflect the length of the 
code being examined and the degree to which it 
has been hacked up. 

The effect of a too-low significance value often 
results in a fewer number of matches being rep- 



orted, rather tnan more as one mignt expect. 
This is because a spurious match of short segm- 
ents can have the effect of masking out longer 
possible matches which would use the same code 
items were they still available. 

Operation 

To operate the opcode matching program both 
lists of code must be in memory. They may be in 
ROM. They need not be at their operating addr- 
ess . ( Indeed , if they have the same address at 
least one must be somewhere else anyway) . Since 
the matching program reports storage , rather 
than operating addresses it is useful to choose 
storage addresses that have some degree of corr- 
espondence to the operating addresses, e.g., 
code operating at $21E3 might be stored at 
$41E3- 

Enter initial values (all in hex LO.HI) as fol- 
lows: 

$0000,01 Significance value 

$0002,03 Start of list A 

$0004,05 Start of list B 

$0006,07 End of list A 

$0008,09 End of list B 

Only the starting address will be modified dur- 
ing program execution. The program will init- 
ially assume that the value at the start locat- 
ion is an opcode . 

To run the program enter at OPMACH. As written, 
it will terminate by jumping to the monitor from 
END01 . The routine may be made into a subrout- 
ine by placing an RTS here. 

Since the program cranks the data a lot , there 
will be what seem to be long pauses between out- 
puts. The program requires about 2 minutes to 
compare the aforementioned assemblers. 

Results 

Several sets of results , using significance val- 
ues of $06, $08 and $0A are shown below. In ord- 
er to have both versions of code resident at the 
same time , it was necessary to store one ver- 
sion , at address $4000 . 

About 64 percent of the code of the two versions 
of the assembler correlate when a significance 
value of 8 is used. This is a reasonable per- 
centage when one considers the fact that the 
non-significant , non-reported , sequences are 
easily identified since they lie in the same 
relative position between reported sequences . 

An extensive manual comparison of the two code 
sets was made. (So much for the work-saving as- 
pects of the program!) No false matches were 
identified when a significance value of 8 was 
used. 

Variations for Text Processing 

Interesting variants of the program are pos- 
sible. By altering or replacing the list point- 
er increment routines, AINC and BINC, the nature 
of the list pointer incrementation may be chang- 
ed from the current conditional increment based 
on opcode to some other condition or to a con- 
stant such as plus one. 

With a constant increment of one , the matching 
program may be used to compare sequences of any 
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textural material in a somewhat crude , one for 
one fashion. 

By having separate increment subroutines when 
seeking to locate the start of a matching seg- 
ment in contrast to the incremental routines 
used when "running-out" a sequence, some fairly 
powerful text processing capabilities may be ob- 
tained at little additional cost. For example, 
when seeking to locate matching segments in nat- 
ural language text , we might wish to start with 
the initial character of alphabetic strings, 
i.e., words. Therefore, by incrementing past 
all non-alphabetic characters to the next alpha- 
betic character we can both speed up the process 
and insure that our sequences start with (what 
we have operationally defined as) words. 

Similar techniques may be employed in the (now 



separate) within sequence increment routines to 
ingore , (i.e. , increment past,") any non-alphabet- 
ic characters such as control characters, num- 
bers, punctuation or whatever we like. Thus we 
are able to obtain a far more flexible and hope- 
fully more useful definition of a matching seq- 
uence . 

Conclusions 

The general techniques illustrated here are both 
effective and useful. The conditional matching 
approach has not been fully explored , but it is 
clear that it has interesting possibilities in 
the area of text processing. In the present 
application, correlating two lenghty strings of 
machine code, the approach made practical what 
otherwise would have been a difficult and dull 
task. 



**** OPCODE SEQUENCE MATCHER **** 
VERSION 1.04, 18 AUG 78 

COPYRIGHT, 1978 

COMMERCIAL RIGHTS RESERVED 

EXCEPT AS NOTED BY 



J. S. GREEN. COMPUTER SYSTEMS 
807 BRIDGE STREET 
BETHLEHEM. PA 18018 
(215) 867-0924 

NOrE: THE BYTCNT SUBROUTINE IS FROM 
H. T. GORDON IN DDJ , #22 P. 5. 
(COPYRIGHT BY PEOPLE'S COMPUTER COMPANY) 



.LOC $0000 

'; USER DEFINED VARIABLES (LO,HI) 

0000 00 00 SIGNIF: .WORD SIGNIFICANCE 

002 00 00 ABASE: .WORD ; START OF LIST A 

0004 00 00 BBASE: .WORD ; START OF LIST B 

0006 00 00 AMAX: .WORD ;END OF LIST A 

0008 00 00 BMAX: .WORD ;END OF LIST B 

; OTHER PROGRAM VARIABLES 

00A 00 00 APOINT: .WORD ;LIST A POINTER 

000C 00 00 BPOINT: .WORD ;LIST B POINTER 

000E 00 00 ASAVE: .WORD ;LIST A SEQUENCE START 

0010 00 00 BSAVE: .WORD ;LIST B SEQUENCE START 

0012 00 00 COUNT: .WORD ;SEQUENCE COUNTER 



EXTERNAL SUBROUTINES (IN KIM) 



.DEF START=$1C4F 

.DEF CRLF=$lE2F 

.DEF OUTCH=$1EA0 

.DEF PRTBYT=$1E3B 

.DEF 0UTSP=$1E9E 



; MONITOR RETURN POINT 
; CARRIAGE RETURN 
;DISPLA A CHAR 
;DISPLA HEX BYTE 
;DISPLA A SPACE 



.LOC $0200 



0200 


20 


2F 


IE 


OPMACH: 


JSR 


CRLF 


0203 


A2 


29 






LDX# 


$29 


0205 


BD 


4F 


03 


OPMCHl: 


LDAX 


SIGN 


0208 


20 


A0 


IE 




JSR 


OUTCH 


020B 


CA 








DEX 




020C 


10 


F7 






BPL 


OPMCHl 


020E 


A5 


01 






LDA 


SIGNIF+1 


0210 


20 


3B 


IE 




JSR 


PRTBYT 


0213 


A5 


00 






LDA 


SIGNIF 


0215 


20 


3B 


IE 




JSR 


PRTBYT 


0218 


20 


2F 


IE 




JSR 


CRLF 


021B 


20 


3B 


03 




JSR 


BASPNT 



;SIGN + HEADER COUNT 
; DISPLAY HEADER 



,-DISPLAY SIGNIF HI 
; DISPLAY SIGNIF LO 
;POINTERS=BASES 
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021E 

0220 

0222 

0224 

0226 

0228 

022A 

022D 

022F 

0231 

0233 

0235 

0237 

0239 

023B 

023D 

023F 

0240 

0242 

0244 

0246 

0248 

024A 

024C 

024E 

0250 

0252 

0254 

0256 

0258 

025A 

025C 

025E 

0260 

0262 

0265 

0268 

026A 

26C 

026E 

0270 

0271 

0273 

0275 

0277 

0279 

027B 

027D 

0280 

0283 

0286 

0288 

028B 

028D 

028F 

0291 

0293 

0296 

0299 

029C 

029D 

029F 

2A1 

2A3 

2A5 

02A7 

2A9 

02AC 

2AF 

02B1 

02B4 

02B7 



A5 03 
C5 07 
30 09 
A5 02 
C5 06 
30 03 
4C B7 02 
A2 00 
Al 0A 
CI 0C 
D0 64 
86 12 
86 13 
A2 03 
B5 0A 
95 0E 
CA 

10 F9 
A2 00 
Al 0A 
CI 0C 
D0 2 6 
A5 0B 
C5 07 
30 06 
A5 0A 
C5 06 
10 1A 
A5 0D 
C5 09 
30 06 
A5 0C 
C5 08 
10 0E 
20 BA 02 
20 CE 02 
E6 12 
D0 D6 
E6 13 
D0 D2 
EA 

A5 13 
C5 01 
30 0F 
A5 12 
C5 00 
30 09 
20 FE 02 
20 45 03 
4C 96 02 
A2 01 
20 3D 03 
A5 10 
85 0C 
A5 11 
85 0D 
20 CE 02 
4C 9C 02 
20 CE 02 
EA 

A5 0D 
C5 09 
30 11 
A5 0C 
C5 08 
30 0B 
20 3B 03 
20 BA 02 
A2 01 
20 47 03 
4C IE 02 
4C 4F 1C 



D01: 



IF1: 



THENl: 



THNlA: 



D02: 



EXP21; 



EXP22: 



END02: 
IF2: 



THEN2: 



ELS2; 



ENDIF2: 
ELS1: 
ENDIF1; 
IF3: 



THEN3: 



ENDIF3: 
ENDOl: 



LDA 

CMP 

BMI 

LDA 

CMP 

BMI 

JMP 

LDX# 

LDAX(3 

CMPXia 

SNE 

STX 

STX 

LDX# 

LDAX 

STAX 

DEX 

BPL 

LDX# 

LDAX@ 

CMPX@ 

BNE 

LDA 

CMP 

BMI 

LDA 

CMP 

BPL 

LDA 

CMP 

BMI 

LDA 

CMP 

BPL 

JSR 

JSR 

INC 

BNE 

INC 

BNE 

NOP 

LDA 

CMP 

BMI 

LDA 

CMP 

BMI 

JSR 

JSR 

JMP 

LDX# 

JSR 

LDA 

STA 

LDA 

STA 

JSR 

JMP 

JSR 

NOP 

LDA 

CMP 

BMI 

LDA 

CMP 

BMI 

JSR 

JSR 

LDX# 

JSR 

JMP 

JMP 



ABASE+1 

AMAX+1 

IF1 

ABASE 

AMAX 

IF1 

ENDOl 



APOINT 

BPOINT 

ELS1 

COUNT 

COUNT+1 

3 

APOINT 

ASAVE 

THN1A 



APOINT 

BPOINT 

EN DO 2 

APOINT+1 

AMAX+1 

EXP21 

APOINT 

AMAX 

EN DO 2 

BPOINT+1 

BMAX+1 

EXP22 

BPOINT 

BMAX 

END02 

AINC 

BINC 

COUNT 

D02 

COUNT+1 

DO 2 

COUNT+1 

SIGNIF+1 

ELS2 

COUNT 

SIGNIF 

ELS2 

REPORT 

PNTBAS 

ENDIF2 

1 

BASPT1 

BSAVE 

BPOINT 

BSAVE+1 

BPOINT+1 

BINC 

ENDIF1 

BINC 

BPOINT+1 

BMAX+1 

ENDIF3 

SPOINT 

BMAX 

ENDIF3 

BASPNT 

AINC 

1 

PNTBS1 

DOl 

START 



;3R IF WHOLE JOB NOT DONE 



;BR IF WHOLE JOB NOT DONE 
;HERE IF WHOLE JOB DONE 
;DOES CURRENT PAIR MATCH- 



;BR IF NOT THE SAME 

;HERE ON SAME 

; CLEAR THE COUNTER 

;SAVES=POINTERS 



;DO TILL NOT THE SAME 



;BR IF NOT THE SAME 



;BR IF LESS THAN 



;BR TO ENDO 



;BR IF LESS THAN 



;BR TO ENDO IF LIMIT REACHED 
;MOVE A POINTER TO NEXT A OPCODE 
;MOVE B POINTER TO NEXT B OPCODE 



;BR ALWAYS TO TOP OF DO 

;A WASTED BYTE FOR "STRUCTURE" 



;BR IF NOT SIGNIF 



;HERE ON SIGNIF. OUTPUT RESULT 
;POINTERS=BASES 



;APOINT=ABASE 



; ANOTHER SOP TO "STRUCTURE' 



;BR IF NOT DONE 



;BR IF NOT DONE 
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SUBROUTINES FOLLOW 












MOVE 


TO NEXT A 


OPCODE 


2BA 


A2 


00 


AINC: 


LDX# 







02BC 


Al 


0A 






LDAX@ 


APOINT 


;GET OPCODE 


2BE 


20 


E2 


02 




JSR 


BYTCNT 


; CALCULATE SIZE 


02C1 


8A 








TXA 




; RESULT RETURNED IN X 


02C2 


18 








CLC 






02C3 


65 


0A 






ADC 


APOINT 


;ADD RESULT TO POINTER 


2C5 


85 


0A 






ST A 


APOINT 




02C7 


A5 


0B 






LDA 


APOINT+1 




2C9 


69 


00 






ADC# 







2CB 


85 


0B 






STA 


APOINT+1 




2CD 


60 






' 


RTS 
















MOVE 


TO NEXT B 


OPCODE 


02CE 


A2 


00 


BINC: 


LDX# 







02D0 


Al 


0C 






LDAX@ 


BPOINT 


;GET OPCODE 


2D2 


20 


E2 


02 




JSR 


BYTCNT 


; CALCULATE SIZE 


02D5 


8A 








TXA 




; RESULT RETURNED IN X 


02D6 


18 








CLC 






02D7 


65 


0C 






ADC 


BPOINT 


;ADD RESULT TO POINTER 


02D9 


85 


0C 






STA 


BPOINT 




02DB 


A5 


0D 






LDA 


BPOINT+1 




2DD 


69 


00 






ADC# 







02DF 


85 


0D 






STA 


BPOINT+1 




02E1 


60 








RTS 
















CALCULATE SIZE 


OF OPERAND (+1) 












BY H. 


T. GORDON 


(SEE DDJ #22. P. 5) 


02E2 


A2 


01 


£ 


5YTCNT: 


LDX# 


1 




02E4 


2C 


E8 


02 




BIT 


BYTCNT+6 


;TEST BIT 3 


02E7 


D0 


08 






BNE 


HAFOP 


;ALL X(8-F) 


02E9 


C9 


20 






CMP# 


$20 




02EB 


F0 


0E 






BEQ 


THREE 


;ONLY $20 


02ED 


29 


9F 






AND# 


$9F 


;BITS 5.6 OUT 


02EF 


D0 


0B 






BNE 


TWO 


;ALL EXCEPT (0.4.6)0 


02F1 


29 


15 


i 


1AF0P : 


AND# 


$15 


; RETAINS ONLY BITS 0,2,4 


02F3 


C9 


01 






CMP# 


1 




02F5 


F0 


05 






BEQ 


TWO 


;X(9,B) 


02F7 


29 


05 






AND# 


5 


;BIT 4 OUT 


02F9 


F0 


02 






BEQ 


ONE 


;X(8,A) AND (0,A,6)0 


2FB 


E8 




1 


■•HREE: 


INX 




;RESID. X(9~F) 


02FC 


E8 




1 


n WO: 


I NX 






02FD 


60 




C 


)NE: 


RTS 
















DISPLAY SIGNIFICANT SEQUENCE LIMITS 


02FE 


A2 


01 


I 


IEPORT : 


LDX# 


1 




0300 


B5 


12 


I 


IEPT1: 


LDAX 


COUNT 


; OUTPUT EXTENT OF MATCH 


0302 


20 


3B 


IE 




JSR 


PRTBYT 




0305 


CA 








DEX 






0306 


10 


F8 






BPL 


REPTl 










, 




OUTPUT MULTIPLE 


SPACES 


0308 


20 


31 


03 




JSR 


OUTSP4 


;FOUR SPACES 


030B 


A2 


00 






LDX# 







030D 


B5 


0F 


i 


IEPT 2: 


LDAX 


ASAVE+1 


;OUTPUT START. AND 


030F 


20 


3B 


IE 




JSR 


PRTBYT 


; END ADDR OF 


0312 


B5 


0E 






LDAX 


ASAVE 


; BOTH SEGMENTS 


0314 


20 


3B 


IE 




JSR 


PRTBYT 




0317 


20 


34 


03 




JSR 


OUTSP2 




031A 


B5 


0B 






LDAX 


APOINT+1 




31C 


20 


3B 


IE 




JSR 


PRTBYT 




031F 


B5 


0A 






LDAX 


APOINT 




0321 


20 


3B 


IE 




JSR 


PRTBYT 




0324 


2k) 


31 


03 




JSR 


OUTSP4 




0327 


E8- 








INX 






0328 


E8 








INX 






0329 


E0 


03 






CPX# 


3 




032B 


30 


E0 






BMI 


REPT2 




032D 


20 


2F 


IE 




JSR 


CRLF 




0330 


60 








RTS 
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0331 


20 


34 03 


0UTSP4: 


JSR 


OUTSP2 


0334 


20 


9E IE 


0UTSP2 


JSR 


OUTSP 


0337 


20 


9E IE 




JSR 


OUTSP 


033A 


60 






RTS 










1 
t 


MOVE 


ABASE & 


033B 


A2 


03 


BASPNT: 


LDX# 


3 


033D 


B5 


02 


BASPT1 


LDAX 


ABASE 


033F 


95 


0A 




ST AX 


APOINT 


0341 


CA 






DEX 




0342 


10 


F9 




BPL 


BASPT1 


0344 


60 






RTS 










t 

1 


MOVE 


APOINT 


0345 


A2 


03 


PNTBAS : 


LDX# 


3 


0347 


B5 


0A 


PNTBS1: 


LDAX 


APOINT 


0349 


95 


02 




STAX 


ABASE 


034B 


CA 






DEX 




034C 


10 


F9 




BPL 


PNTBS1 


034E 


60 






RTS 










SIGN: 


.ASCII 


034F 


20 










0350 


3D 










0351 


20 










0352 


46 










0353 


49 










0354 


4E 










0355 


47 










0356 


49 










0357 


53 










0358 


20 










3359 


20 
















HEADER: 


.ASCII 


035A 


4F 










035B 


54 










035C 


20 










035D 


20 










035E 


20 










035F 


4D 










0360 


4F 










0361 


52 










0362 


46 










0363 


20 










0364 


20 










0365 


20 










0366 


20 










0367 


20 










0368 


4F 










0369 


54 










036A 


20 










036B 


20 










036C 


20 










036D 


4D 










036E 


4F 










036F 


52 










0370 


46 










0371 


20 










0372 


20 










0373 


20 










0374 


20 










0375 


45 










0376 


5A 










0377 


49 










0378 


53 











;4 SPACES 
;2 SPACES 



BBASE TO APOINT & BPOINT 



& BPOINT TO ABASE & BBASE 



.END 



FINGIS 



'OT 



MORF 



0379 
0000 
0002 
0004 
0006 
0008 
000A 
000C 
000E 
0010 
0012 
1C4F 
1E2F 
1EA0 
1E3B 
1E9E 
0200 
0205 
034F 
033B 
W21E 
022D 
02B7 
0299 
0235 
023B 
0242 
43270 
0256 
0262 



SIGNIF 

ABASE 

BBASE 

AMAX 

3MAX 

APOINT 

BPOINT 

ASAVE 

BSAVE 

COUNT 

START 

CRLF 

OUTCH 

PRTBYT 

OUTSP 

OPMACH 

OPMCH1 

SIGN 

BASPNT 

DOl 

IF1 

EN DOl 

ELS1 

THENl 

THN1A 

DO 2 

EN DO 2 

EXP21 

EXP22 



OT 



MORF 



EZIS 



02BA 


AINC 


02CE 


BINC 


0271 


IF2 


0286 


ELS2 


02BA 


AINC 


02CE 


BINC 


0271 


IF2 


0286 


ELS2 


027D 


THEN2 


02FE 


REPORT 


0345 


PNTBAS 


0296 


ENDIF2 


033D 


BASPTl 


029C 


ENDIF1 


029D 


IF3 


02B4 


ENDIF3 


02A9 


THEN3 


0347 


PNTBS1 


02E2 


BYTCNT 


02F1 


HAFOP 


02FB 


THREE 


02FC 


TWO 


02FD 


ONE 


0300 


REPT1 


0331 


OUTSP 4 


030D 


REPT2 


0334 


OUTSP2 


035A 


HEADER 
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SIZE 


FROM 


TO 


FROM 


TO SIGNIF 


0026 


2000 


2052 


4000 


4052 


x 0007 


2069 


207B 


4093 


40A5 


x 0006 


2099 


20A5 


42C2 


42CE 


x 0006 


2224 


2234 


437C 


438C 


x 000A 


2237 


224D 


4784 


479A 


x 000B 


274E 


2761 


479D 


47B0 


x 0008 


279D 


27AC 


47BB 


4 7CA 


007A 


28D1 


29BE 


47CF 


48BC 


0008 


29BF 


29D1 


48BC 


48CE 


0019 


29DB 


2A0D 


48CE 


4900 


004D 


2A17 


2AC6 


492D 


4 9DC 


002E 


2ACB 


2B33 


49E1 


4A49 


0035 


2B6E 


2BE5 


4A49 


4AC0 


000C 


2BF2 


2C04 


4ACD 


4ADF 


0106 


2CE2 


2F01 


4B27 


4D46 


SIZE 


FROM 


TO 


FROM 


TO SIGNIF 


0026 


2000 


2052 


4000 


4052 


003D 


206C 


20F0 


4052 


40D6 


0020 


20F3 


213C 


40D6 


411F 


001F 


213C 


2180 


4122 


4166 


000E 


2187 


21A7 


41 6 D 


418D 


0046 


21AA 


224D 


4198 


423B 


0087 


2275 


2394 


4258 


4377 


0009 


23A8 


23BB 


438F 


43A2 


0126 


23C0 


25E6 


43A2 


45C8 


004C 


25F1 


269F 


45C8 


4676 


0087 


26C1 


27C1 


4692 


4792 


000E 


27C8 


27E2 


479D 


47B7 


000C 


27E5 


27F9 


47BB 


47CF 


007A 


28D1 


29BE 


47CF 


48BC 


0008 


29BF 


29D1 


48BC 


48CE 


0019 


29DB 


2A0D 


48CE 


4900 


004D 


2A17 


2 AC 6 


492D 


49DC 


002E 


2ACB 


2B33 


49E1 


4A49 


0035 


2B6E 


2BE5 


4A49 


4AC0 


000C 


2BF2 


2C04 


4ACD 


4ADF 


0087 


2DE5 


2F01 


4C2A 


4D46 


SIZE 


FROM 


TO. 


FROM 


TO SIGNIF 


0026 


2000 


2052 


4000 


4052 


003D 


206C 


20F0 


4052 


40D6 


0020 


20F3 


213C 


40D6 


411F 


00 IF 


213C 


2180 


4122 


4166 


000E 


2187 


21A7 


416D 


418D 


0046 


21AA 


224D 


4198 


423B 


0089 


2271 


2394 


4254 


4377 


0126 


23C0 


25E6 


43A2 


45C8 


004C 


25F1 


269F 


45C8 


4676 


0089 


26BC 


27C1 


468D 


4792 


000E 


27C8 


27E2 


479D 


47B7 


000C 


27E5 


27F9 


47BB 


47CF 


007A 


28D1 


29BE 


47CF 


48BC 


001D 


29D1 


2A0D 


48C4 


4900 


004D 


2A17 


2AC6 


492D 


4 9DC 


002E 


2ACB 


2B33 


49E1 


4A49 


0035 


2B6E 


2BE5 


4A49 


4AC0 


000C 


2BF2 


2C04 


4ACD 


4ADF 


0089 


2DE1 


2F01 


4C26 


4D46 



= 0006 



Note: 
items tagged with 
an 'x' represent 
false matches. 



= 0008 



= 000A 
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CASSETTE TAPE CONTROLLER 



Fred Miller 

7 Templar Way 

Parsippany, NJ 07054 



The ideal tape storage facility for micro-sys- 
tems would be one in which the micro has comp- 
lete control of all tape movement and play/ 
record functions without "operator intervention" 
e.g. pushing buttons. Unfortunately most of us 
have budgets which only allow use of lower cost 
audio cassette units. Short of massive mechan- 
ical rebuilding, these units can only be extern- 
ally controlled with a motor on/off function 
after the "operator" has set the proper record/ 
play keys. All too often we goof and press the 
wrong button, have to move cassettes from one 
unit to another, or simply forget to set up the 
units at the right time. 

The Cassette Tape Controller (CTC) described 
below offers a reasonably inexpensive capabil- 
ity as a compromise in the provision of automat- 
ic tape control for a KIM-1 system. CTC is a 
combination of a seven-IC hardware board and 
supporting software routines. It was developed 
to control two Pioneer Centrex KD-12 cassette 
units. The concept could be extended to more 
than two units or perhaps other models. 

A summary of the functions provided are: 

(1) Provide software-driven capability to start 
and stop a specific tape recorder by opening/ 
closing the "remote control" circuit of the re- 
corder (normally controlled by a switch on an 
external microphone) . 

(2) Provide software-driven capability to route 
the input (record) or output (playback) signals 
as appropriate. 

(3) Provide override manual controls (toggles) 
to also accomplish (1) and (2), above. 

(4) Light panel indicators (LEDs) associated 
with the play or record functions selected for 
each cassette unit as set by software or manual 
controls. 

(5) Sense whether the selected tape recorder is 
set to play or record, or neither. 

(6) Sense the position of auxiliary toggles for 
setting software options, etc., (option 
switches. 

(7) Light indicators (LEDs) associated with the 
auxiliary toggles for operator communications. 

(8) Provide an audible "beep" under software 
control . 



CTC General Description 

The Cassette Tape Controller is a hardware/ soft- 
ware facility to assist in the operation and use 
of audio cassette tape recorders for data read/ 
write functions. The hardware provides the int- 
erface from a KIM-1 to two Pioneer Centrex KD-12 
tape recorders. Besides the cassette input and 
output lines from KIM-1 four other lines (bit 
ports) are required for software control of the 
hardware. 

The software and hardware control the recorder's 
motor circuits and determine if the appropriate 
manual keys on the recorder are set correctly. 
The software can provide alternative action 
(alert the operator or try another unit) in the 
case of improperly set keys. 



The specific software illustrated below is writ- 
ten to "search" for a unit which is set in eith- 
a "read" (playback) or "write" (record) mode. 



If none is found in the desired mode, an audible 
tone is sounded and the search is continued. 
The visible indication of each of the "read" or 
"write" LEDs blinking along with the audible 
tone provides the operator with a quick clue as 
to the erroneous settings. If the appropriate 
tapes are "mounted" the operator simply depress- 
es the "requested" cassette unit key. Subse- 
quent references by the software would locate 
the preset unit without communicating to the 
operator . 

Additional facilities are built into the CTC 
hardware/software at little extra cost. These 
include the separately accessible audible tone 
and two option toggles with accompanying panel 
indicator LEDs. The toggles can be used for set- 
ting options selected by the operator and test- 
ed by the software. The associated indicators 
can also be used for some optional communication 
purposes. A third switch (momentary toggle or 
pushbutton) is used as a "break" command for 
software testing. A layout of the related hard- 
ware control panel is shown in Fig . 1 . 



n 



READ WRITE 



UNIT I UNIT 2 

CASSETTE TAPE CONTROLLER 



OPTION A 



BREAK 



Figure 1 . 
Suggested Panel Layout 
for Cassette Tape Controller 



Hardware Description 

A key to the logic of CTC is the ability to sen- 
se actual cassette unit key settings. By sens- 
ing voltage levels at two externally accessible 
points in the KD-12 circuitry it is possible to 
determine one of the following states: 

(1) unit set for read (playback) 
or fast forward or rewind 

(2) unit set for write (record) 

(3) no keys depressed 

The circuit shown in Fig. 2 uses two ICs to ad- 
dress a function, one to enable and the other to 
sense results of enabling. This logic is fur- 
ther described in the comments accompanying the 
software source listing. Four non-critical DPDT 
relays are used to allocate signals and control 
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motor circuits. The additional circuits, (1) 
pulse an audible tone generator, (2) light LED 
indicators, or, (3) sense toggle switch posit- 
ions all depending upon addressed functions. 

Three bits (PB 0-2) from KIM-1 Applications Port 
B are used to address the functions. Another 
bit line (PB 3) of the same port is used to feed 
status back to KIM-1. 

The KD-12 units are operated from external batt- 
ery power (continually trickle-charged) to pro- 
vide the most stable unit operation. HYPERTAPE 
speeds are extremely reliable in this configur- 
ation . 

Software Description 

The controlling software consists of a series of 
routines which are accessible from user programs. 
The software shown in Fig. 3 is designed to 
"seek out" a cassette unit which is set for a 
given function, e.g., read. A brief study of the 
routines will show how this can be replaced or 
amended to select only a given cassette unit for 
a specific function. The additional routines 
are provided for "testing" the optional toggle 
switches, etc. Many of the routines are useful 
for other than tape cassette control, e.g., 
a JSR to BELL provides an audible "beep". 



Conclusion 

The hardware and software described have been 
working very satisfactorily on the author's 
system for well over a year. The CTC software 
(along with tape and record I/O routines based 
on the HYPERTAPE routines) have been committed 
to EPROM (2708). Access to this capability is 
easy and provides convenient operation of tape 

file processing from user software programmed in 
any language used on the KIM-1 micro (BASIC, 
Assembler, HELP, etc.). Although the operator 
still must press the keys on the cassette units, 
the CTC system can save many a "rerun" or clob- 
bered files due to careless operations. 
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Figure 2. 

Cassette Tape Controller (CTC) 
Circuit Diagram 



174 



OOlOi 
0020) 
0030s 
0040 1 
0050! 
0060) 
0070s 
008 s 
0090! 
0100! 

0110! 

0120i 
0l30i 
0140: 
0150! 
0160: 
ID=02 



0200 



0200 
0200 
0200 
0200 



KXFTAP ORG $0200 

* * 

* CASSETTE TAPE * 

* CONTROLLER <CTC) * 

* BY F.MILLER * 

* * 

*** KIM & ZERO PAGE PARAMETERS *** 



PBD 


* 


$1702 


PBDD 


* 


$1703 


TPFCT 


* 


$00EF 


INIT 


* 


S1E8C 



0010! 
0020! 
0030! 
0040! 
0050! 
0060! 
0070i 
0080s 
0090i 
0100s 
01 10i 
0120i 
0130) 
0140! 
0150: 
01601 
0170! 
0180! 
0190! 
02001 
0210i 
0220! 
ID=03 



0200 D8 

0201 A9 02 
0203 20 IB 02 
0206 FO OC 
0208 A9 04 
020A 20 IB 02 
020D FO 05 
020F 20 2B 02 
0212 DO EC 

0214 EA 



0215 
0218 



20 
4C 



33 
8C 



02 
IE 



*** TAPE CASSETTE READ ROUTINES *** 

RDTAPE CLD 

LDAIM $02 TEST FOR UNIT#1 READY 

JSR TPTEST FOR READ? 

BEQ CREAD ...YES 

LDAIM $04 ...NO* UNIT#2 READY? 

JSR TPTEST 

BEQ CREAD ...YES 

JSR BELL ...NO* SOUND SIGNAL AND 

BNE RDTAPE TRY AGAIN. 

CREAD NOP 



ROUTINE FOR READING TAPE 
GOES HERE 



JSR 
RDEXIT JMP 



CTLOFF TURN OFF CASSETTE MOTOR 
INIT AND RETURN VIA KIM INIT 



0010! 
0020 s 
0030i 
0040! 
0050! 
0060! 
0070 s 
0080! 
0090 s 
OlOOi 
01 10i 
0120s 
0130s 
01401 
0150! 
0160! 
0170! 
0180! 



*** CASSETTE SUPPORT RTNS *** 



021 B 8 5 EF 
021D 8D 02 



0220 
0223 
0226 
0228 
022A 



20 
AD 
29 
C5 
60 



0233 A9 
0235 8D 
0238 8D 
023B 60 



3C 
02 
OF 
EF 



022B A9 00 
022D 8D 02 
0230 20 3C 



17 
02 
17 



17 

02 



07 

03 17 
02 17 



TPTEST STA 
STA 
JSR 
LDA 
AN DIM 
CMP 
RTS 



BELL 



LDAIM 

STA 

JSR 



CTLOFF LDAIM 
STA 
STA 
RTS 



TPFCT SAVE UNIT/FCT 

PBD PORT B CONTROL DATA 

DELAY ALLOW RELAY SETTLE 

PBD CK BITS 0-3 ■ TO 

$0F ORIGINAL UNIT/FCT 

TPFCT 

EQUAL MEANS UNIT READY 



ZERO FCT SETS TONE 



$00 

PBD 

DELAY WAIT* RESET & EXIT 

$07 BITS 0-2 TO 0/P 

PBDD 

PBD SET TO FCT#7 (OFF) 
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0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
ID=0 



023C A9 
023E 8D 
0241 2C 
0244 10 
0246 60 



FF 
07 
07 
FB 



DELAY 



17 
17 



LDAIM 

STA 

BIT 

BPL 

RTS 



$FF 
S1707 
$1707 
DELAY 



SET TIMER TO 1/4 SEC 



+ 05 



0247 20 33 02 BRKCK J SR CTLOFF ENSURE OFF 



024A 
024E 
024E 
0250 
0252 
0253 



18 
AD 
29 
DO 
38 
60 



02 
08 
01 



17 



BKEXIT 



CLC 

LDA 

ANDIM 

BNE 

SEC 

RTS 



PBD 
$08 
BKEXIT 



BIT 3 HIGH MEANS NO BRK 



NO CARRY MEANS NO BRK 



0010: 

0020: 

0030: 

0040: 

0050: 

0060: 

0070: 

0080 

0090 

0100 

0110 

0120: 

0130: 

0140: 

0150: 

0160: 

0170: 

.0180: 

0190: 

0200: 

0210: 

0220: 

ID=05 

0010: 

0020: 

0030: 

0040 

0050: 

0060: 

0070; 

0080: 

0090: 

0100: 

0110: 

0120: 

0130: 

0140: 

ID= 



02 54 
0255 
0257 
02 5A 
025C 
025E 
0261 
0263 
0266 



D8 
A9 
20 
FO 
A9 
20 
FO 
20 
DO 



0268 EA 



0269 
026C 



20 
4C 



0273 
0275 
0276 
0279 
027A 
027D 
027E 
0280 
028 1 



01 

IB 
OC 
03 
IB 
05 
2B 
EC 



33 

8C 



026F A9 06 
0271 DO 02 



A9 
48 
20 
68 
20 
18 
DO 
38 
4C 



*** CASSETTE WRITE ROUTINE *** 

WRTAPE CLD 

LDAIM $01 TEST FOR UNIT#1 READY 

02 JSR TPTEST FOR WRITE? 

BEQ CVRI TE . . .YES 

LDAIM $03 ...NO* TEST UNIT#2 

02 JSR TPTEST 

BEQ CWRITE ...YES 

02 JSR BELL ...NO* SOUND SIGNAL AND TRY 

BNE WRTAPE AGAIN 

CWRITE NOP 



CASSETTE WRITE ROUTINE 
GOES HERE 



02 JSR CTLOFF TURN OFF MOTORS 

IE JMP I NIT AND RETURN VIA KIM 



*** ALT.SW TEST~ & LIGHT *** 

TSTSWA LDAIM $06 SET FOR ALT.SW #1 

BNE TSTSWB +02 



05 TSTSWB LDAIM $05 SET FOR ALT.SW #2 

PHA SAVE CODE 

33 02 JSR CTLOFF INITL PORTS 

PL A RETRIEVE CODE 

IB 02 JSR TPTEST AND TEST SW 

CLC 

01 BNE TSTX IF NOT EQUAL 

SEC MEANS SW IS NOT SET 

33 02 TSTX JMP CTLOFF CARRY MEANS SW 'ON' 
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EXPAND YOUR 6052-BASED TIM MONITOR 

Russell Rittimann 

2606 Willow Crest 

San Antonio, TX 78247 



This modification to TIM will expand its command set such that 
ROM resident programs or routines can be executed from within 
TIM. Since I had several programs in PROM (BASIC, assembler, 
etc.) that were used regularly, I wanted an easy way to execute 
them without the usual sequence of: displaying the registers; 
setting the program counter; and finally typing "G". Now my TIM 
monitor will recognize a "B" from the keyboard and immediately 
put me into BASIC, and similarly recognize other commands for 
the other programs. 

The TIM manual from MOS TECHNOLOGY included a complete 
listing of the monitor program. The sequence for recognizing a 
command in TIM was: output the prompting "."; read the 
command; look the command up in a table; and then execute the 
command by indirectly jumping to the address of the routine that 
corresponded to the command. This sequence of instructions is 
located from 708F(16) to 70B4(16) in the TIM monitor. All I needed 
to do is intercept the command and check it against my own table 
before letting TIM have its turn at it, which presented a problem 
since the TIM program is in ROM and can't be changed. 



What I did was to disable TIM for a "window" of 16 locations from 
7090(16) to 709F(16) and enable a DM8578 32 x 8 PROM at these 
same locations. Figure 1 shows the schematic for the PROM and 
address decoding. Note, that the 3-input NAND gate connected to 
CS2 of TIM, limits the monitor to between 6000(16) and 7FFF(16). 
This was not shown in the TIM manual. 

I programmed the first half of the 8578 identical to the 16 locations 
in TIM starting at 7090(16) except for locations 4, 5, 6 
(corresponding to TIM's 7094(16) - 7096(16).) In TIM, these 3 
locations are a jump to subroutine to read a character from the 
keyboard. Instead, I put a jump to location CCO0(16) where I had a 
2708 EPROM decoded. The program in the 8578 is shown in Figure 
2. 

Figure 3 shows the program in the 2708. This instruction sequence 
receives the command from the keyboard and checks it against its 
command table. If not found, program control is returned to TIM 
at location 7098(16) to check its commands. If the command is 
user-defined, then the program jumps indirectly to the routine 




/? 



h!L 



Vcc WBR 

DM8575 
32*8 PROM 

6rt> 



1! 



8 



csz 



MCS dS 30 -O04 
TIM 



Do 


3 


Di 


CO 


Dz 


."«: 


t>3 


t 


Pi 


ci 


Ds 


«M 


P* 


O 


P7 


V9 



Figure 1 
Schematic Diagram 
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LOC. 


C0N7ENTS 


0000- 


2E 


0001- 


20 C6 72 


0004- 


4C 00 CC 


0007- 


A2 06 


0009- 


DD 06 71 


000C- 


D0 19 


000E- 


A5 FD 



INSTR. 



.HS $2E 
JSR $72C6 
JMP $CC00 
LDX ttNCHDS-1 
CHP CMBS,X 
BNE S2 
LDA SAVX 



COMMENTS 



TIM PROMPTER "." 

OUTPUT PROMPTER USING TIM OUTPUT ROUTINE 

JUHP INTO 2708 EPRQM 

FOLLOWING INSTRUCTIONS AS IN TIM 



Figure 2 
Program in 8578 PROM 



whose address is immediately following the command letter in tht 
table. User-defined commands will have priority over TIM's 
commands. The format for each command in the table is as 
follows: command letter, low address of routine, high address of 
routine. Since the 2708 is erased to all ts, I used FF(16) for the 
delimiter to signify the end of the table. Thus, the table can be 
added to at any time by programming 3 bytes. 

Some final comments: I located the 2708 at CC0O(16) but it can be 
located anywhere by changing the address in the 8578 and the 
address of the command table. At the end of each routine added, 
there must be a jump to 7086(16) to get back into TIM. The first 
byte of the 8578 is the TIM prompting character. If you want 



LOC. 


CONTENTS 




INS 


iTR. 


CC00- 


20 E9 72 




JSR 


*72E9 


CC03- 


A2 00 




LBX 


B$00 


CC05- 


BC 28 CC 


LOOP 


LDY 


TABL,X 


CC08- 


C0 FF 




CPY 


»$FF 


CC0A- 


D0 03 




BNE 


CHEK 


CC0C- 


4C 97 70 




JMP 


$7097 


CC0F- 


BD 28 CC 


CHEK 


CMP 


TA3L,X 


CC12- 


B0 0F 




BNE 


NEXT 


CC14- 


E8 




INX 




CC15- 


BD 28 CC 




LDA 


TABL,X 


CC18- 


85 EC 




STA 


$EC 


CC1A- 


E8 




INX 




CC1B- 


BD 28 CC 




LDA 


TABL,X 


CC1E- 


85 ED 




STA 


$ED 


CC20- 


6C EC 00 




JMP 


<$00EC) 


CC23- 


E3 


NEXT 


INX 




CC24- 


E8 




INX 




CC25- 


E8 




INX 




CC26- 


D0 DD 




BNE 


LOOP 


CC28- 


2A 


TABL 


.HS 


$2A 


CC29- 


92 




.HS 


$92 


CC2A- 


CC 




.HS 


$CC 


CC2B- 


42 




.HS 


$42 


CC2C- 


A1 




.HS 


$A1 


CC2D- 


CC 




.HS 


$CC 


CC2E- 


FF 




.HS 


$FF 



something other than the period, program any character you want 
into this location. Since the 8578 is an irreversible PROM, and I 
only used the first 16 locations, if you make a mistake in burning 
the PROM, the second half can be used by connecting the high 
address line, A4, to Vcc. Also, check the 2708 before the 8578 is 
wired since this modification won't work without all chips in- 
stalled correctly. 

This modification converts TIM into an adaptable operating 
system. Anytime I get more resident routines, I can add them to 
TIM by programming three locations into the command table in 
the 2708. 



COMMENTS 



GET COHMAND USING TIM INPUT ROUTINE 

X IS INDEX INTO TABLE 

CHECK COMMAND LETTER IN TABLE FOR DEFAULT 

DELIMITER 
IF NOT DELIMITER, COMPARE COMMAND FROM KEYBOARD 
OTHERWISE, JUMP BACK INTO TIM 
CHECK KEYBOARD COMMAND AGAINST TABLE 
IF NOT COMMAND, CHECK NEXT IN TABLE 
FOUND COMMAND 
GET LOU ADDRESS OF ROUTINE 



GET HIGH ADDRESS OF ROUTINE 

JUMP INDIRECT TO ROUTINE 
INCREMENT POINTER TO NEXT COMMAND 



GO BACK AND CHECK REST OF COMMANDS 

COMMAND LETTER "*" 

LOU ADDRESS OF ROUTINE #1 

HIGH ADDRESS OF ROUTINE »1 

COMMAND LETTER "B" FOR BASIC PROGRAM 

LOU ADDRESS OF BASIC PROGRAM 

HIGH ADDRESS OF BASIC PROGRAM 

END OF TABLE DELIMITER 



Figure 3 
Program in 2708 EPROM 
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6502 GRAPHICS ROUTINES 

Jim Green 

807 Bridge Street 

Bethlehem, PA 18018 



The 6502 Graphics routines were written specifically for use with 
the Polymorphics Video Terminal Interface. (VTI), board installed 
on a KIMSI, S-100 interface to a KIM. It is expected that these 
routines will work with other low resolution graphics boards of a 
similar configuration with little or no software modification but no 
other boards have been attempted to date. 

On the VTI, 16 lines of 64 ASCII characters each, or a grid of 48 by 
128 individually controllable points, can be accomodated. For 
each memory byte, the high bit, 7, determines how the byte is to 
be treated. If this bit is set the byte is displayed as an ASCII 
character. If the bit is clear the lowest six bits are displayed as 
points of a 3 by 2 point subset of the 48 by 128 point grid. Each 
such bit that is set will be displayed as black. The remainder will be 
white. 

The upper left-hand corner of the display screen is the display 
origin. This is also the base address of the video memory. The 
input coordinates to the routines are specified as hex values in the 
X and Y registers. The X register holds the column value and has a 
permitted range of to $7F. The Y register holds the row value 
from to $3F. 

Routines are provided: WHTPNT, to set; BLKPNT, to clear; and 
TSTPNT, to test the current value of a specified display bit. An 
additional routine, BLANKR, is used to blank the entire screen. 

The principal task of the graphics routines is to gain effective 
access to each specified bit in the screen grid without disturbing 



any of the remaining points. This task is divided into two parts, 
first to locate the byte that contains the target bit, then to isolate 
the target bit itself. These tasks are performed by subroutine 
POINT which is called by the other routines. 

Within POINT, the ranges of X and Y are first tested. If either value 
is found to be out of range, control is returned to the calling 
program with the C flag set and with no changes to the video 
memory. If the ranges are ok, the C flag will be clear when the 
routines eventually return to the calling program. 

After the range tests, the row coordinate value is divided by three 
(by a process of successive subtraction), and the column 
coordinate value is divided by two. The integer quotents and 
remainders are saved separately in each case. The row and column 
quotents now point to the row and column that uniquely contain 
the target byte. Hence, when the row quotent is multiplied by 64 
and is then added to the column quotent an offset from the video 
memory base address is obtained. By adding the base address to 
this value the absolute memory address of the target byte is 
obtained. 

To isolate the target bit within a byte, the column and row 
remainders are combined to form an index value (0 to 5). This 
index is used to select one of six masks which may be logically 
combined with the byte to uniquely treat the target bit. 

On the system described, these routines require an average of 
about a third of a milli-second to complete a single bit update. 
This is more than ample for most purposes. 



6502 GRAPHICS ROUTINES 
VERSION 0.3B, 18 OCT 78 

COPYRIGHT BY 

J. S. GREEN, COMPUTER SYSTEMS 

807 BRIDGE STREET 

BETHLEHEM, PA 18018 

(215) 867-0924 

COMMERCIAL RIGHTS RESERVED 

EFFECTIVE COORDINATES IN HEX ON ENTRY: 
COLUMN VALUE IN X, (0 - $7F) 
ROW VALUE IN Y, (0 - $2F) 

CONSTANTS 

.DEF VIDBAS=$C000 ;VIDEO MEMORY BASE ADDR 

.DEF UPLIM=$C4 ;UPPER LIMIT (HIGH BYTE) 
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/ 


VARIABLES 
.DEF R0W=$E2 
.DEF C0L=$E3 
.DEF R0WREM=$E4 
.DEF C0LREM=$E5 
.DEF GRADR=$E6 










9 


.LOC $0200 
DISPLAY CLEAR BI 


0200 


20 


4C 


02 


WHTPNT: 


JSR POINT 


0203 


B0 


09 






BCS WHTPTl 


0205 


A0 


00 






LDY# 


0207 


BD 


90 


02 




LDAX PLTMSK 


20 A 


31 


E6 






AND@Y GRADR 


020C 


91 


E6 






STA@Y GRADR 


20E 


60 






WHTPTl: 


RTS 

DISPLAY SET BIT 


020F 


20 


4C 


02 


BLKPNT: 


JSR POINT 


0212 


B0 


0D 






BCS BLKPTl 


0214 


A0 


00 






LDY# 


0216 


BD 


90 


02 




LDAX PLTMSK 


0219 


49 


FF 






EOR# $FF 


021B 


11 


E6 






ORA@Y GRADR 


021D 


29 


3F 






AND# $3F 


021F 


91 


E6 






STA@Y GRADR 


0221 


60 






BLKPT1: 


RTS 



;GET ADDRES + MASK INDEX 
;BR IF PROBLEM 



GET MASK 

AND WITH VIDEO BYTE 

DISPLAY CLEAR BIT 



;GET ADDRES + MASK INDEX 
;BR IF PROBLEM 



GET MASK 

REVERSE IT 

OR WITH VIDEO BYTE 

CLEAR HIGH BITS 

DISPLAY SET BIT 



TEST DISPLAYED BIT 

RESULTS WITH Z FLAG SET IF BIT IS SET 



0222 20 4C 02 TSTPNT: JSR 



POINT 



;GET ADDRES + MASK INDEX 



0225 


B0 


0B 




BCS 


TSTPTl j 


BR IF PROBLEM 


0227 


A0 


00 




LDY# 







0229 


BD 


90 02 




LDAX 


PLTMSK 


GET MASK 


022C 


49 


FF 




EOR# 


$FF 


• REVERSE IT 


022E 


29 


BF 




AND# 


$BF 


■CLEAR BIT 6 


0230 


31 


E6 




AND@Y 


GRADR 


•Z SET IFF GRAPHIC-BIT SET 


0232 


60 




TSTPTl: 


RTS 














BLANK 


VIDEO FOR PLOT 


0233 


A9 


C0 


BLANKR: 


LDA# 


>VIDBAS 




0235 


85 


E7 




STA 


GRADR+1 




0237 


A0 


00 




LDY# 







0239 


84 


E6 




STY 


GRADR 




023B 


A9 


3F 




LDA# 


$3F 


; 0011 1111 


023D 


91 


E6 


BLANK1: 


STA@Y 


GRADR 




023F 


E6 


E6 




INC 


GRADR 




0241 


D0 


FA 




BNE 


BLANK1 




0243 


E6 


E7 




INC 


GRADR+1 


;HIGH ORDER ADDRES BYTE 


0245 


A6 


E7 




LDX 


GRADR+1 




0247 


E0 


C4 




CPX# 


UPLIM 


;TEST END OF SCREEN 


0249 


90 


F2 




BCC 


BLANKl 


;BR NOT DONE 


024B 


60 






RTS 
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GET BYTE ADDRES & BIT MASK 



024C 

024E 

0250 

0252 

0254 

0255 

0256 

0257 

0258 

025A 

025B 

025C 

025D 

025E 

0260 

0261 

0262 

0263 

0265 

0267 

0269 

026B 

026C 

026D 

026F 

0271 

0273 

0274 

0276 

0278 

0279 

027B 

027C 

027E 

0280 

0282 

0284 

0286 



E0 80 

B0 3F 

C0 30 

B0 3B 

8A 

48 

98 

AA 

A0 FF 

C8 

CA 

CA 

CA 

10 FA 

E8 

E8 

E8 

86 E4 

84 E2 
A2 00 
86 E5 
68 

4A 

85 E3 
26 E5 
A5 E2 
18 

86 E7 
A2 05 
0A 

26 E7 
CA 

10 FA 
65 E3 
85 E6 
A9 C0 
65 E7 
85 E7 



0288 
028A 
028C 
028D 
028E 
028F 

0290 
0291 
0292 
0293 
0294 
0295 



A5 
66 
2A 
AA 
18 
60 

IF 
3B 
2F 
3D 
37 
3E 



E4 
E5 



POINT: CPX# 
BCS 
CPY# 
BCS 
TXA 
PHA 
TYA 
TAX 
LDY# 
POINT1: INY 
DEX 
DEX 
DEX 
BPL 
INX 
INX 
INX 
STX 
STY 
LDX# 
STX 
PLA 
LSRA 
STA 
ROL 
LDA 
CLC 
STX 
LDX# 
POINT2: ASLA 
ROL 
DEX 
BPL 
ADC 
STA 
LDA# 
ADC 
STA 



$80 

POINT3 
$30 
POINT3 



$FF 



POINT1 



ROWREM 
ROW 

COLREM 



COL 

COLREM 

ROW 

GRADR+1 
5 

GRADR+1 

POINT2 

COL 

GRADR 

>VIDBAS 

GRADR+1 

GRADR+1 



NOW CALC MASK 
LDA ROWREM 
ROR COLREM 
ROLA 
TAX 
CLC 
POINT3: RTS 

PLTMSK: .BYTE $1F 
.BYTE $3B 
.BYTE $2F 
•BYTE $3D 
.BYTE $37 
.BYTE $3E 

• END 
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128 IS TOO HIGH 

BR TOO HIGH 

48 IS TOO HIGH FOR ROW 

BR TOO HIGH 

COLUMN 

SAVE IT 

ROW 

DIVIDE ROW BY 3 

INITIALIZE QUOTENT 

ACCUMULATE QUOTENT 

SUBTRACT 3 



;BR MORE 
;RESTOR 3 



;ROW REMAINDER 
/INTEGER QUOTENT 

INITIALLY CLEAR 
RESTOR COLUMN 
DIVIDE BY 2 
INTEGER QUOTENT 
REMAINDER FROM CARRY 



CLEAR ADDRES HI 
PREP TO MPY BY 2**6 (=64) 
MPY BY 2 EACH LOOP 
OVERFLO TO ADDRES HI 



;BR TIL DONE 6 TIMES 

;ADD THE PLACE IN THE ROW 

;VIDEO MEMORY BASE ADDR HI 

; ADDRES POINTS TO BYTE 
; IN VIDEO MEMORY 

INDEX FOR BIT WITHIN BYTE 
EITHER 0, 1 OR 2 
EITHER OR 1 INTO CARRY 
COMBINE WITH CARRY 

; CLEAR CARRY SAYS ANS OK 



UP-LEFT POINT WITHIN BYTE 

UP-RT 

MID-LF 

MID-RT 

LO-LF 

LO-RT 

NO ERRORS DETECTED 
PASS (1-2)? 



A CLOSE LOOK AT THE SUPERfaOARD II 

Bruce Hoyt, Pastor 

Sharon Associated Reformed Presbyterian Church 

Route 1 

Brighton, TN 38011 



Late in December 1978 my dreams came true. Those dreams I had 
had in the mid 60's when I first learned how to program computers. 
I had dreamed of having my own desk-sized computer. That 
dream has come true to a degree I would not have thought 
possible then. The computer I now have is not desk-sized but is 
contained on one printed circuit board. Furthermore it is more 
powerful than the big monsters I worked on in the mid 60's. 
I don't want to bore you with a description of my continual 
amazement at a computer on a chip for such things are now old 
hat. Nor do I want to give just a general overview of the 
Superboard II manufactured by Ohio Scientific. For a general 
description you may check the March 1979 issue of Popular 
Electronics, p. 76. I want to go somewhat deeper into evaluating 
and describing the Superboard II (Note: the Challenger IP also 
manufactured by Ohio Scientific is the same computer in a case 
with power supply). 

HARDWARE 
KEYBOARD: 

The keyboard is mounted directly on the printed circuit board as 
can be seen in the advertisements. It is a polled keyboard which is 
polled by writing to a latch addressed at memory location DF00. 
This latch feeds the rows of the keyboard matrix. When a key is 
depressed the latch signal is fed through the key switch to a 
tri-state buffer and back onto the data buss. A read of address 
DF00 will pick up the signal from the column in which the key is 
depressed. This method of polling the keyboard makes the 
hardware very simple (and cheap) but it is effective. In my view a 
polled keyboard like the one on the Superboard II is better than a 
hardware implemented ASCII keyboard. Several nice features can 
be incorporated this way. For example every key has an automatic 
repeat feature. You have direct access to every key on the board 
for gaming purposes. Another keyboard can be put in parallel with 
the existing one. I plan to add a Hex keypad this way. OSI has 
provided a jack with several of the keyboard lines on it so that 
switch type joysticks may be connected for games. 
For ordinary ASCI I input from the keyboard the monitor includes a 
subroutine which returns the ASCII value of any key depressed. So 
for all practical purposes this arrangement works just like any 
other ASCII keyboard. 

OSI has fed the signal from the keyboard through a resistor 
network and then out the game jack. This signal may be 
connected to a speaker to make sounds or music. The only reason 
I cannot give a further description of this feature is that OSI failed 
to include the resistors and I haven't yet gotten around to it. 
VIDEO DISPLAY: 

The video display is elegant and simple from a hardware point of 
view. The display on the screen is 32 by 32 but has no guard 
bands. My monitor displays about 27 by 30 screen size. The 
software supplied with the Superboard uses only 24 character lines 
since many who buy the Superboard may want to connect it to an 
ordinary TV through a video modulator. The video display is 
refreshed from a 1K memory located at D000-D3FF. Any byte 
written into this memory gets fed through a character generator 
and then sent to the screen. The character generator produces not 
only the full set cf ASCII symbols but also more than 100 graphics 
symbols. It is complete enough to do just about anything you 
would want to on a 24 by 24 screen: Life, Tic-Tac-Toe, Pong, 
Racecar, Ship-tank-airplane warfare, etc. 



You may wonder about the access to the refresh memory since 
both the CPU and the video disply circuitry must use it. The video 
display memory is accessed through a multiplexer which is 
normally connected to the refresh circuitry. This multiplexer 
allows the CPU to access the memory whenever the CPU addresses 
any memory from DOOOto D3FF. This causes a slight blink in the 
display on the TV monitor but the blink is almost unnoticable. 
Even constantly writing to the display memory causes only a slight 
decrease in brightness and some flicker of the picture. But 
whoever writes constantly to the display memory anyway? There is 
no affect at all on the monitor when the CPU is accessing memory 
other than the video memory. 
CASSETTE I/O: 

The Superboard comes with a KC standard cassette interface built 
in. This operates at 300 baud. That is somewhat slow for loading 
long programs but the slowness is compensated for by the 
accuracy. I have yet to find a read error. The hardware fof the 
interface uses a Motorola 6850 AC I A to generate serial data. I 
think that a small change in the clock used for this ACIA could 
speed up operation but I have not checked this out yet. This 6850 
is located at FOOOFOOI in the memory space. 
The greatest difficulty with the cassette interface is that no 
provision has been made for motor control. It would have been 
simple to use the Request-to-Send output from the 6850 for this 
purpose. I plan to conned the Request-to-Send output to a small 
reed relay for this purpose 
COMPONENTS: 

The board itself is high quality e| oxy-glass. It is double sided, 
through the hole plated The CPU is a 6502A and so has plenty of 
reserve. The RAM (hips ,md other support are mostly low power 
variety. All have recent date codes. The character generator and 
the BASIC ROM's are masked programmed type but the monitor is 
an EPROM. I suppose you could reprogram the Monitor to suit 
some particular need you might have. The schematics are 
accurate and clear. They are very easy to follow since this 
computer is not really very complicated. The only complaint I 
would have is that various sections of the schematic are not 
labelled as to their funtion. But with a little study you can figure 
them out. 

FUTURE EXPANSION: 

An empty 40 pin DIP socket is provided for expansion. All the 
important control, address, and data lines are connected to this 
DIP socket. OSI makes a model 610 expansion board which" 
connects to this DIP socket. The 610 expansion board comes with 
a timer, printer interface, and disk interface along with room for 
more memory. I personally plan to go from this DIP socket to a 
KIM type connector for interfacing but there are many possibilities 
for expansion including the S-100 bus or OSI's 48 pin bus. 

SOFTWARE 
MONITOR: 

The monitor comes in an EPROM at the high end of memory and 
contains the interrupt vectors, the keyboard input routine, cassette 
I/O routines, and a memory access routine which allows you to 
view or change any memory location. With this capability it is 
very easy to load mchine language programs by hand and then 
execute them or save them and later load them from tape. One 
deficiency is the lack of a cassette save routine in the monitor. 
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The monitor has a load routine but no save routine. I have written 
a save routine which incorporates a Hex memory dump. (See 
figure 1) This routine saves data in a format acceptable to the 
monitor load routine. I have located it at 0222 since this space is 
unused by the BASIC interpreter. The begin address and the end 
address of the code to be saved must be entered at 00F7 and 00F9 
respectively. When you execute the save routine, be sure to turn 
on your recorder! The code will be saved on tape as well as 
displayed on the monitor screen. If you want to use this program 
as a memory dump just run it without turning on your cassette. 
Several important monitor routines as well as some Basic routines 
are listed in Table 1. 
BASIC: 

The BASIC in ROM is an 8K Microsoft product. It is called a 6 digit 
BASIC since only 6 digits of precision are displayed. Internally, 
however, all numbers are carried in floating point form with 23 bits 
of precision (actually the precision is 24 bits since a high order 1 
bit is assumed). That amounts to 7Vi digits of precision internally. 
Though this BASIC is very good and very fast it is still a BASIC 
interpreter and allowance must be made for that fact. I have a 
puzzle that I have programmed in both BASIC and machine 
language. The machine language program takes about V/i hours to 
run to completion. The BASIC program would take over a month! 
Superboard is what OSI calls its "immediate mode." That means 
that any statement can be entered without a line number and it 
will be executed immediately. Since "?" can be used in place of 
"PR'NT" it is possible to interrogate the computer for any piece of 
information you might want. For example ? A yields thevalue of 
the variable A in the memory. ? 45-20 yields 25. ? PEEK (255) yields 
the contents of memory location 255 in decimal. GOTO 40 sends 
BASIC to statement number 40 and begins execution at that point. 
This last feature is very useful in debugging. One could say that the 
immediate mode allows you to use the Superboard as a 
super-calculator and provides a built-in debugger. The BASIC 
alone is worth the price of the computer. 



ASSEMBLER: 

There is one available from OSI on tape but I haven't tried it out. I 
want to write my own and put it in an EPROM. 
DOCUMENTATION: 

A few words must be said about documentation. Frankly, it is not 
up to OSI's high quality in the hardware and software areas. The 
graphics manual is by far the best, providing pretty clear 
descriptions and giving good examples The users manual leaves 
something to be desired in clarity. It is too brief and rather vague 
at points. I have had real trouble trying to use machine language 
since there is virtually no description of the machine instructions. I 
also had some trouble figuring out what pins to connect my 
cassette to since the diagram is not clearly labelled. The BASIC 
manual is very brief-admittedly so. OSI expects you to have on 
hand a BASIC reference manual if you are not thoroughly familiar 
with the workings of BASIC. One serious problem is an error in the 
BASIC manual relating to the USR function. It tells you to poke 
the starting address of the USR routine into locations 023E-023F 
but this does not work In the graphics manual there is an example 
of the use of the USR function. In that example the starting 
address of the USR routine is poked into OOOB-OOOC. This works. 
I do wish that manufacturers would supply complete 
documentation with their software including source code. OSI 
provides almost nothing in the way of description for either the 
monitor or BASIC. I have disassembled the monitor and figured it 
out but have not yet started on BASIC. If anyone has inside 
information on the inner workings of Superboard BASIC please let 
us know. Think of all those good routines in BASIC that we could 
use to memory saving advantage: conversion routines, arithmetic 
routines, text editor, scanner, etc. 

Though I have had to give a few negatives about the Superboard II 
I am well impressed with the quality of both hardware and 
software. If you are undecided as to what computer is the best buy 
for the money, I urge you to send your $279 check to OSI and ask 
for a Superboard. I don't think there is anything as good for the 
price on the market. 
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OSI CASSETTE SAVE/HEX MEMORY DUMP 



BRUCE 
MARCH 



HOYT 
1979 



TO USE, PLACE THE START ADDRESS OF CODE 
TO BE SAVED IN 00F7,00F8 AND THEN THE END 
ADDRESS IN 00F9,00FA. TURN ON THE TAPE 
RECORDER AND EXECUTE. NOTE: THIS PROGRAM 
WILL SAVE ITSELF ON TAPE. 



0222 

0222 
0224 
0227 
022A 
022C 
022F 
0231 
0234 
0236 
0239 
02 3 B 

023E 
0240 
0242 
0245 
0247 
024A 
024C 
024F 
0251 
0253 
0255 
0256 
0258 
025A 
025C 
025E 
0260 

0263 
0265 
0268 
026B 
026E 
0271 
0274 



ORG $0222 



A9 
20 
20 
A9 
20 
A5 
20 
A5 
20 
A9 
20 

A2 
Al 
20 
A9 
20 
A9 
20 
E6 
DO 
E6 
38 
A5 
E5 
A5 
E5 
10 
4C 

85 
20 
AD 
20 
AD 
20 
60 



OD 
2D 
7A 
2E 
75 
F8 
63 
F7 
63 
2F 
75 

00 
F7 
63 
OD 
Bl 
20 
2D 
F7 
02 
F8 

F9 
F7 
FA 
F8 
DE 
43 

FC 
AC 
CC 
75 
CD 
75 



START 



BF 
FF 

02 

02 

02 

02 



02 



FC 



BF 



0275 20 Bl 
0278 20 2D 
027B 60 



FE 



FE 
DO 
02 
DO 
02 



FC 
BF 



LOOP 



BUMP 



AOUT 



CC 



LDAIM 

JSR 

JSR 

LDAIM 

JSR 

LDA 

JSR 

LDA 

JSR 

LDAIM 

JSR 

LDXIM 

LDAIX 

JSR 

LDAIM 

JSR 

LDAIM 

JSR 

INC 

BNE 

INC 

SEC 

LDA 

SBCZ 

LDA 

SBCZ 

BPL 

JMP 

STA 
JSR 
LDA 
JSR 
LDA 
JSR 
RTS 

JSR 
JSR 
RTS 



$0D 

$BF2D 

$FF7A 

$2E 

CC 

$00F8 

AOUT 

$00F7 

AOUT 

$2F 

CC 

$00 

$00F7 

AOUT 

$0D 

$FCB1 

$20 

$BF2D 

$00F7 

BUMP 

$00F8 

$00F9 

$00F7 

$OOFA 

$00F8 

LOOP 

$FE43 

$OOFC 

$FEAC 

$DOCC 

CC 

$DOCD 

CC 



$FCB1 
$BF2D 



CARRIAGE RETURN 

CRT 

10 NULLS TO 

"." ADDRESS 



CASSETTE 
MODE 



FROM LOCATION (HIGH) 
FROM LOCATION (LOW) 
"/" DATA MODE 



GET BYTE 

OUTPUT 

CARRIAGE 

CASSETTE 

SPACE 

CRT 

INCREMENT 



RETURN 
OUTPUT 



FROM ADDRESS 



CHECK 
TO 

FROM 
TO + 
FROM 



IF DONE 



YES, RETURN TO MONITOR 

USE MONITOR DISPLAY 

TO UNPACK 

HI 

LO 



OUTPUT TO 
AND CRT 



CASSETTE 



Figure 1 
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Page Usage 

0000 
00FB 
OOFC 
00FE-00FF 

Page 1 

0100-0140 

0130 

01C0 

Page 2 

0200 
0203 
0205 
0206 
0212 
0218 
021A 
021C 
021e 
0220 
0222-02FA 



JMP to warm start in BASIC 
cassette/keyboard flag for monitor 
data temporary hold for monitor 
address temporary hold for monitor 



stack 

NMI vector - NMI interrupt causes a jump to this point 

IRQ vector 



cursor position 

load flag 

save flag 

CRT simulator baud rate - varies from 

Control-C flag 

input vector = FFBA 

output vector = FF69 

Control C. check vector = FF9B 

load vector = FF8B 

save vector = FF96 

unused 



= fast to FF = slow 



Page 3 and up to end of RAM is BASIC workspace 

A000-BFFF BASIC in ROM 

D000-D3FF Video refresh memory 

DF00 Polled keyboard 

F000-F001 Cassette port 6850 

F800-FFFF Monitor EPROM 



FC00 
FD00 
FE00 
FF00 



Floppy bootstrap 

Keyboard input routine 

Monitor 

BASIC I/O support 



Useful Subroutine entry points 



A274 
BD11 
BF2D 
FD00 
FCB1 
FE00 
FE0C 
FE43 
FE80 
FE93 
FF69 



FF00 
FF8B 
FF96 
FF9B 
FFBA 



warm start for BASIC 

cold start for BASIC 

CRT simulator - prints char in A register 

input char from keyboard, result in A 

output 1 byte from A to cassette 

entry to monitor, clears screen, resets ACIA 

entry to monitor, bypasses stack initialization 

entry to address mode of monitor 

input ASCII char from cassette, result in A, 7 bit cleared 

convert ASCII hex to binary, result in A, =80 if bad 

BASIC output to cassette routine, outputs one char 

to cassette, displays on screen, outputs 10 nulls 

if carriage return character 
Reset entry point 
Load flag routine 
Save flag routine 
Control-C routine 
BASIC input routine 



Table 1. 
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TWO SHORT TIM PROGRAMS 

Gary L. Tater 
7925 Nottingham Way 
EllicottCity, MD 21043 



A Fast Talking TIM 



If you have used both KIM and TIM with a terminal, you know that 
TIM has many nice features. For instance you can enter eight bytes 
at a time with TIM, and TIM has many more subroutines you can 
call in your programs than KIM does. However, KIM can adapt to 
terminal frequencies up to 2400 baud whereas TIM was designed 
to work from 100 to 300 baud. This article describes a program 
which allows you to communicate with TIM at 1200 baud or 
higher. 



After a reset TIM automatically measures the speed of your 
terminal and deposits the bit times representative of the baud rate 
in two zero page locations, OOEA and OOEB. To increase the 
baud rate above 300 baud, the procedure is to place the correct 
values into EA and EB and change your terminal to that speed. 



0100 20 A 4 73 NEWVAL JSR 



0103 A5 EE 


LDA 


0105 85 EB 


STA 


0107 A5 EF 


LDA 


0109 85 EA 


STA 


010B 00 


BRK 


010C 4C 00 01 


JMP 



$73A4 READ TWO BYTES VIA TIM MONITOR 

$00EE PUT EE INTO EB 

$00EB 

$00 EF PUT EF INTO EA 

$00EA 

NEWVAL TYPE G FOR NEW VALUES 



Figure 1 

Program to Change OOEA and OOEB. 

Type Major Value OOEA First 



By using the short program of Figure 1, I was able to find the 
correct values for 600 and 1200 baud operation (See Table 1) for 
my CT-64 and CCRS CPU board which has a 6502 operating with a 
one megahertz crystal. For each baud rate there is a range of 

Baud Rate 

1200 

600 

300 



values that is acceptable for EB. I have attempted to find the 
center of the range for my system. You will probably need to 
experiment to find the best numbers for your computer. 



OOEA 


OOEB 


01 


50 


03 


13 


06 


3C 



Table 1 
Zero page memory values for three baud rates. 



Using this basic information I wrote the program of Figure 2. The 
programs begins at 157E and asks: 

SPEED 300 600 1200? 

At this point you should type 3, 6, or 1 and change your terminal to 



the correct rate. The program determines what you have entered 
and stores the correct values in EA and EB. By inspection of the 
program, you should be able to expand it to 2400 baud if you have 
a faster terminal. For a one megahertz system typical values are 
00 in EA and 75 in EB for 2400 baud. 



A TIM Operating System Menu 



If you have written a collection of utility programs, assemblers, 
disassemblers and application programs, you will need a directory 
program with which you can easily call your desired program. The 
short program in Figure 3 uses the alphabet to call 26 programs. 
When the programs finish, they should return to the beginning of 
the directory program at location 0100. 

You may choose to keep the program in ROM as I do. Only 
locations 0116 and 01 1B need be changed to do this provided you 



start the program at the beginning of a page. 

The program prints a prompting "-" so that you'll know its in 
command and not TIM. If you type a nonalphabetic character, it 
will restart. After you type a letter, say a C for compare or M for- 
move, the program finds the appropriate starting address stored 
between 0122 and 0155. After the starting address is stored in 00F6 
and 00F7, the program calls the "GO" subroutine in TIM which 
causes your program to be executed. 
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THIS PROGRAM IS RELOCATABLE AS LONG AS THE POINTER TO 
THE TEXT MESSAGE IS CHANGED IN LINE "PRINT" 

CLEAR DECIMAL MODE 

INITIALIZE INDEX 

GET ASCII CHARACTERS 

DONE IF NULL CHARACTER 

PRINT VIA TIM OUTPUT ROUTINE 

BUMP POINTER 

UNCONDITIONAL BRANCH TO PRINT NEXT 

READ CHOICE VIA MONITOR 

ASCII 1 ? 

1200 BAUD 



157E D8 




START 


CLD 




157F AO 


00 




LDYIM 


$00 


1581 B9 


B3 15 


PRINT 


LDAY 


TEXT 


1584 FO 


06 




BEQ 


PDONE 


1586 20 


C6 72 




JSR 


$72C6 


1589 C8 






INY 




158A DO 


F5 




BNE 


PRINT 


158C 20 


E9 72 


PDONE 


JSR 


$72E9 


158F C9 


31 




CMPIM 


»1 


1591 FO 


1A 




BEQ 


HIGH 


1593 C9 


36 




CMPIM 


'6 


1595 FO 


10 




BEQ 


MEDIUM 


1597 C9 


33 




CMPIM 


'3 


1599 DO 


E3 




BNE 


START 


159B A2 


3C 


LOW 


LDXIM 


$3C 


159D A9 


06 




LDAIM 


$06 


159F 85 


EA 


FIXIT 


STA 


$00EA 


15A1 86 


EB 




STX 


$00EB 


15A3 00 






BRK 




15A4 18 






CLC 




15A5 BO 


D7 




BCS 


START 


15A7 A2 


13 


MEDIUM 


LDXIM 


$13 


15A9 A9 


03 




LDAIM 


$03 


15AB DO 


F2 




BNE 


FIXIT 


15AD A2 


50 


HIGH 


LDXIM 


$50 


15AF A9 


01 




LDAIM 


$01 


15B1 DO 


EC 




BNE 


FIXIT 


15B3 53 




TEXT 


= 


'S 


15B4 50 






= 


'P 


15B5 45 






= 


'E 


15B6 45 






= 


•E 


15B7 44 






= 


'D 


15B8 20 






— 


» 


15B9 20 






= 


t 


15BA 33 






= 


'3 


15BB 30 






= 


•0 


15BC 30 






= 


•0 


15BD 20 






r 


t 


15BE 36 






= 


'6 


15BF 30 






= 


'0 


15C0 30 






= 


•0 


15C1 20 






= 


i 


15C2 31 






= 


'1 


15C3 32 






= 


•2 


15C4 30 






= 


'0 


15C5 30 






= 


'0 


15C6 20 






= 


t 


15C7 3F 






— 


'? 


15C8 20 






= 


i 


15C9 00 






— 


$00 



GET VALUES FOR 300 BAUD 

SAVE FOR TIM TIMING ROUTINES 
SAVE SECOND VALUE 
RETURN TO MONITOR 
CLEAR CARRY 
UNCONDITIONAL BRANCH 

GET VALUES FOR 600 BAUD 

UNCONDITIONAL BRANCH TO FIXIT 

GET VALUES FOR 1200 BAUD 

UNCONDITIONAL BRANCH TO FIXIT 

"SPEED 300 600 1200 ?" 



Figure 2 
6502 Program to Change Speed 
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CRLF VIA TIM MONITOR 

PRINT "-" 

VIA TIM MONITOR 

READ A CHARACTER VIA TIM 

TEST FOR GREATER THAN Z 

BRANCH IF TOO LARGE 

SET TO CONVERT ASCII TO INDEX 

BY SUBTRACTING VALUE OF ASCII A 

IF MINUS, THEN CHARACTER LESS THAN A 

MULTIPLY BY TWO FOR INDEX 

PUT CONVERTED VALUE INTO INDEX 

GET START ADDRESS LOW 

SAVE FOR TIM 

GET START ADDRESS HIGH 

SAVE START ADDRESS HIGH 

GO TO SUBROUTINE VIA TIM 



LOW ADDRESS FOR A, FILLED IN BY USER 

HIGH ADDRESS FOR A, FILLED IN BY USER 

LOW ADDRESS FOR B 

HIGH ADDRESS FOR B 
AND SO FORTH THROUGH 
LOW AND HIGH PAIR FOR Z 



0100 20 


8A 


72 


START 


JSR 


$728A 


0103 A9 


2D 






LDAIM 


t _ 


0105 20 


C6 


72 




JSR 


$72C6 


0108 20 


EE 


72 




JSR 


$72EE 


01 OB C9 


5B 






CMPIM $5B 


010D 10 


F1 






BPL 


START 


010F 38 








SEC 




0110 E9 


41 






SBCIM 


'A 


0112 30 


EC 






BMI 


START 


0114 OA 








ASLA 




0115 AA 








TAX 




0116 BD 


24 


01 




LDAX 


LOWADR 


0119 85 


F6 






STA 


$00F6 


01 1B BD 


25 


01 




LDAX 


HGHADR 


011E 85 


F7 






STA 


$00F7 


0120 20 


5C 


71 




JSR 


$715C 


0123 00 








BRK 




0124 00 






LOWADR 


= 


$00 


0125 00 






HGHADR 


= 


$00 


0126 00 








= 


$00 


0127 00 








= 


$00 



A 100 uS 16 CHANNEL ANALOG TO DIGITAL CONVERTER 
FOR 65XX MICROCOMPUTER SYSTEMS 

J.C.Williams 

55HolcombSt 

Simsbury, CT 06070 



Analog to digital (A/D) conversion can be useful in many 
microcomputer systems. The design presented here takes 
advantage of a large scale integrated circuit, the ADC08I7, to 
simplify a 16 channel, 8 bit A/D system which can be attached to 
the bus of 65XX microcomputers. The applications that I have 
found for this system have included "straight" data acquisition, 
game joystick position reading, graphic input generation and voice 
recognition. Of course, the software for each of these applications 
is different,^but they all require multichannel, reasonably fast A/D. 
The 100 us conversion time of this system depends only on the 1 
MHz clock frequency of the microcomputer. The microprocessor 
is not involved in the A/D conversions. Once the conversion is 
started, the processor can work on other tasks until the digital 
result is available. 

The Hardware 

This device appears to the programmer as a block of memory 
starting at a base address, BASE, and extending through 16 
locations to BASE 1 15. (The actual circuit described occupies 256 
locations because of incomplete decoding.) An analog to digital 
conversion of a selcted channel, say channel X, is started by 
writing to BASE t X. The 8 bit conversion result may then be read 
from any location in the block (eg. BASE) any time after the 100 
US conversion time has elapsed. If desired, the end of 
conversion signal from the ADC0817 may cause an interrupt to get 
the attention of the processor. If multiple A/D conversions at the 



maximum speed are required the 65XX can be kept busy with 
"housekeeping" during the conversion delay time. The example 
programs illustrate two ways the converter may be driven. 
The system uses just five integrated circuits and can be built for 
less than $40. The design, shown in Figure 1, occupies a six square 
inch area on a Vector plugboard and draws only 60 mA of current 
from the t8 Volt DC unregulated power supply. Operation of the 
circuit is simple because the ADC0817 performs all analog 
switching and A/D functions. The base address of the converter is 
fixed by six switches attached to the DM8131 six bit comparitor. 
When the processor accesses memory locations having address 
bits A15-A10 matching the switch settings, the DM8131 output 
goes low. This output is NOR'ed with A9 and A8 to further reduce 
the memory space occupied by the circuit to one 65XX page. The 
possible base addresses which can be obtained with this decoder 
can fall on any 1K boundary and A9 and A8 must be "O's". For 
example, base addresses (in hex) can be set to A000 or A400 but 
not A100, A200, or A300. In the design drawn, A9 and A8 must be 
low for the A/D to be selected, but this could be changed if A9 
and/or A8 were inverted using unused sections of the 74LS05. 
When the A/Disselected,the output of the NOR gate (pin 12 of the 
74LS27) goes to a "1"; this can be used as a "board selected" signal 
if needed (eg. by KIM-1 users for DECODE ENABLE). The 
microprocessor R/W and 02 lines, along with an inverted board 
select signal and combined in two NOR gates which 1) latch 
channel select bits A3-A0 and start A/D conversion during 02 of 
write cycles and 2) enable the tri-state data bus drivers during 02 of 
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read cycles. The end of conversion (EOC) signal, produced by the 
ADC0817 when the most recent conversion has been completed, 
can be connected to a processor interrupt line through one of the 
74LS05 open collector inverters. These interrupts must be cleared 
by starting another A/D conversion. 

Wire-wrap construction is suitable for the circuit and component 
layout is not critical. It is good practice, however, to orient the 
analog input area away from digital circuits. The REF t and REF- 
reference voltages must not be noisy if the full accuracy, 20 mV 
per bit, is to be achieved. The t5 Volt regulator should not be 
shared with other circuitry. The layout used in one of the 
prototypes is sketched in Figure 2. Figure 2 also shows several 
input connections which may be useful. The circuit has two 
limitations: 1) input voltages must be between and t5 Volts and 
2) signals being converted should not change appreciably during 
the 100 us conversion period. Both of these limitations may be 
eliminated by appropriate analog conditioning circuitry, but the 
simplicity of the design is lost. Builders who want to add features 
to the circuit should consult the ADC0817 specification and 
application information. 



The Software 

Two example subroutines which use the A/D converter illustrate 
how it is handled by software. The program which calls the A/D 
subroutine must initialize both the channel selection and storage 
defining parameters before the JSR instruction is executed. In the 
examples, an index register contains the channel selection 
information because of the ease of using an indexed addressing 
mode to start a conversion. Data storage is either on page or 
pointed to by page variables. The A/D subroutines must either 
contain delays or take enough time between writing to and reading 
from the ADC0817 to allow it to finish the conversion. 
Components for this very useful piece of hardware can be 
obtained from a number of sources readily available to 
low-volume users. Both National Semiconductor and Texas 
Instruments produce the ADC0817 and its more accurate 
counterpart, the ADC0816. The ADC0817 and its data sheet have 
been recently listed by TRI-TEK; Inc., 7808 N. 27th Ave., Phoenix, 
AZ 85021. Many other suppliers, such as Jameco Electronics, 1021 
Howard Avenue., San Carlos, CA 94979, and Advanced Computer 
Products, 1310 "B" E. Edinger, Santa Ana, CA 92713, can supply the 
other components. 



MCAD - MULTI-CHANNEL A/D CONVERSION 
3. C. WILLIAMS 
JANUARY 1979 



0200 



ORG $0200 



0200 
0200 

0200 9D 00 B0 
0203 A0 0E 

0205 88 

0206 DO FD 
0208 AD 00 B0 
020B 9D 00 90 
020E CA 

020F 10 EF 
0211 60 



BASE 
STORE 

MCAD 

DY 



* $B000 

* $9000 

STAX BASE 

LDYIM $0E 

DEY 

BNE 

LDA 

STAX 

DEX 

BPL 

RTS 



DY 

BASE 

STORE 

MCAD 



BASE ADDRESS OF ADC0816 
START OF 16 BYTE STORAGE AREA 

START CONVERSION ON CHANNEL X 
DELAY FOR CONVERSION, 
MINIMUM VALUE = $0E 

GET CONVERTED DATA 
STORE DATA 

DO NEXT CHANNEL 
FINISHED 



EXAMPLE CALLING ROUTINE FOR MCAD 



0212 A2 OF 
0214 20 00 02 
0217 00 



MCMAIN LDXIM $0F 
JSR MCAD 
BRK 



SELECT CONVERSION OF ALL 

16 CHANNELS AND GO TO SUBROUTINE 

EXIT ** BE SURE TO INIT IRQ VECTOR ** 
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0300 

0300 
0300 
0300 
0300 



CXAD SUBROUTINE 
3. C. WILLIAMS 
JANUARY 1979 

ORG $0300 



BASE * 

SP * 

SPSTR * 

SPSTP * 



$B000 BASE ADDRESS OF ADC0816 

$0000 STORAGE POINTER 

$0002 LOC OF STORAGE BLOCK START ADDRESS 

$0004 LOC OF STORAGE BLOCK END ADDRESS 



0300 
0303 
0305 
0307 
0309 
030B 
030C 
030E 
030F 
0311 
0313 
0315 
0317 
0319 
031B 
03 ID 
031F 
0321 
0323 
0325 
0327 
0329 
032B 
032C 
032E 
0331 
0334 
0336 
0338 
033A 



9D 00 BO 
A5 02 
85 00 
A5 03 
85 01 
D8 

AO 05 
88 

DO FD 
FO 16 
A5 00 
C5 04 
A5 01 
E5 05 
BO ID 
A9 01 
65 00 
85 00 
A9 00 
65 01 
85 01 
AO 05 
88 

DO FD 
AD 00 BO 
9D 00 BO 
AO 00 
91 00 
FO D9 
60 



CXAD STAX 
LDAZ 
STAZ 
LDAZ 
STAZ 
CLD 
LDYIM 

DY DEY 
BNE 
BEQ 

TSTEND LDAZ 
CMPZ 
LDAZ 
SBCZ 
BCS 
LDAIM 
ADCZ 
STAZ 
LDAIM 
ADCZ 
STAZ 

DELAY LDYIM 



DYA 



RT 



DEY 

BNE 

LDA 

STAX 

LDYIM 

STAIY 

BEQ 

RTS 



BASE 

SPSTR 

SP 

SPSTR 

SP 

$05 

DY 

DELAY 

SP 

SPSTP 

SP 

SPSTP 

RT 

$01 

SP 

SP 

$00 

SP 

SP 

$05 

DYA 

BASE 

BASE 

$00 

SP 

TSTEND 



START FIRST CONVERSION 
INIT STORAGE POINTER 

+01 

+01 

USE BINARY MODE 

INSERT DELAY TO ALLOW 

INITIAL CONV. TO COMPLETE 



TEST FOR END OF 
STORAGE BLOCK 
+01 
+01 

ADD ONE TO STORAGE POINTER 



+01 
+01 
DELAY TO FIX TIME BETWEEN CONV'S. 



READ CONVERTED RESULT 

START NEXT CONVERSION IMMEDIATELY 

SET STORAGE OFFSET 

STORE RESULTS 

ALWAYS TAKEN 



EXAMPLE CALLING ROUTINE FOR CXAD 



033B A2 00 
033D A9 00 
033F 85 02 
0341 A9 90 
0343 85 03 
0345 A9 FF 
0347 85 04 

0349 A9 9F 
034B 85 05 
034D 20 00 03 

0350 00 



CXMAIN LDXIM $00 SELECT CHANNEL 



LDAIM $00 
STAZ SPSTR 
LDAIM $90 
STAZ SPSTR 
LDAIM $FF 
STAZ SPSTP 
LDAIM $9F 
STAZ SPSTP 
3SR CXAD 
BRK 



SET STARTING ADDRESS OF 
STORAGE BLOCK TO $9000 

+01 

SET ENDING ADDRESS OF 

STORAGE BLOCK TO $9FFF 

+01 

EXIT ** BE SURE TO INIT IRQ VECTOR ** 
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FIGURE I 

16 CHANNEL ANALOG TO DIGITAL CONVERTER SYSTEM 
FOR 65XX MICBOPROCESSOR SYSTEMS 



to +5 Volts 




+8 Volts 



J. C. Williams 
1978 
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FIGURE 2 

16 CHANNEL A/D CONVERTER 
FOR &5XX 5Y5TEM5 
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USING TINY BASIC TO DEBUG 
MACHINE LANGUAGE PROGRAMS 

Jim Zuber 
20224 Cohasset No. 16 
Canoga Park, CA 91306 



I just got Tiny BASIC up and running on my KIM-1 and have found 
it to be a valuable enhancement to writing machine (or assembly) 
language programs. The Tiny BASIC USR function allows us to 
access machine language subroutines from within a BASIC 
program. You can pass parameters to and from the BASIC program 
and the machine language subroutine. If you can make an entire 
machine language program appear as a subroutine to Tiny BASIC 
(add a RTS call in the appropriate place) then Tiny BASIC can 
access your entire program with the USR function. A natural 
application of this capability is a debugging program written in 
Tiny BASIC that can completely test a machine language 
subroutine without ever leaving the Tiny BASIC program. The only 
limitation to this is that your machine language program cannot 
reside in the memory area used by Tiny BASIC and you must not 
use the same zero page locations as Tiny BASIC. My program (see 
listing #1) will print out the data in 4 memory locations when a 
predefined set of conditions exist in the machine language 
subroutine. There are 7 user selectable functions in the command 
mode: 

(0) DEFINE SUBROUTINE ADDRESS - This is the starting address 
of the machine language subroutine you want to test. 

(1) DEFINE PRINT ADDRESS - This allows you to define the 
conditions that must exist before data is printed out in the run 
mode. There are 3 options: 

(A) Print every loop through the subroutine. 

(B) Print at a predefined loop interval (use a decimal number). 

(C) Conditional print- Program will only print out when data in 
a predefined address matches the value specified. 

The print mode is initialized at "Print every loop" at the start of 
the program. 



(3) PRESET DATA 
memory location. 



This allows the user to place data in any 



(4) PRINT LIMIT - This number limits the number of times the 
program prints out the 4 addresses when in the run mode. This is 
initialized at 10 in the beginning of the program. Use a decimal 
value for the print limit. 

(5) RUN PROGRAM - This starts the Tiny BASIC program looping 
through and printing out data from the machine language sub- 
routine. 

(6) EXIT PROGRAM - Returns you to Tiny BASIC monitor. 

(7) See COMMAND OPTIONS. 

All command options except 6 return to the command mode after 
execution. If your version of Tiny BASIC does not start at hex 2000 
you must change line 50 to the decimal equivalent of your Tiny 
BASIC starting address. All address and data questions should be 
answered in hex with a comma between each digit. Example: 



Address 0,2,0,0 or Data A, 2. The program will print a marker every 
50 loops through the machine language subroutine. This can be 
changed to suit your preference by modifying line 295. The 
following example should clarify the functions and use of the 
Debug Program. Listing #2 is a subroutine from a Biorhythm 
Program that I wrote. The subroutine increments 3 memory 
locations that correspond to the physical, emotional, and 
intellectual biorhythm cycle days. Each memory location should 
be reset to day one at the appropriate point. 

Location 0001 = 1 to 23 days (physical) 
Location 0002 = 1 to 28 days (emotional) 
Location 0003 = 1 to 33 days (intellectual) 

Two days in each cycle are considered critical. They are: 

Physical: Day 1 and day 12 
Emotional: Day 1 and day 15 
Intellectual: Day 1 and day 17 

Location 0004 is incremented for each cycle that is critical on a 
particular pass through the subroutine. An 02 in this location 
would indicate a double critical day on that particular pass 
through the subroutine. As a subroutine of this type would take 
several hours to test using conventional methods due to the large 
number of variables, the following sample runs from the Tiny 
BASIC machine Debug Program will show how complete testing of 
a subroutine can be done in a few minutes. (See samples #1 
through #4). 

Sample #1 The starting address is set to 0200 and the print 
addresses are defined as 0001 through 0004. The printout shows 
that locations 0001 - 0003 are incrementing as they should. 

Sample #2 Memory locations 0001 - 0003 are preset to day 20 
and the print limit is set to 15. The printout shows that the cycles 
are resetting to day 1 at the appropriate time, (days 23, 28, and 
33). 

Sample #3 The print limit is set to 4 and the print mode is set to 
every 23rd loop in order to check the consistency of the sub- 
routine. The printout shows that location 0001 is staying the 
same as it should, (location 0001 is the 23 day physical cycle). 
Note the marker at 50 loops. 

Sample #4 The print mode is set to the conditional mode in 
order to print only when location 0004 is equal to 02 (double 
citical day). The printout shows the subroutine is working 
properly. 

I would like to thank Tom Pittman (author of Tiny BASIC) whose 
programming tricks in the Tiny BASIC User Manual made this 
program possible. I hope the Machine Debug Program can take the 
sweat out of testing your subroutines! 
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—LISTING #1- 



18 REM TINV BflSIC MACHINE DEBUG PROGRAM 

11 REM BY JIM ZUBER — SEPT 29,1978 

15 A=-18 

28 B=-ll 

25 C=-12 

38 D=-13 

35 E=-14 

48 F=-15 

47 REN TINV STRRT RODRESS<DEC) 

56 S=8192 

54 REP! PRESET PRINT LIKIT 

55 6=18 

59 REM PRESET PRINT MODE 

68 H=l 

65 REM ANSWER ALL ADDRESS AND DfiTfl 

78 REM QUESTIONS WITH fl HEX NUMBER 

75 REM THAT HfiS EACH DIGIT SEPERRTED 

88 REM BY A COMMR 

85 REM AT R MINIMUM SET SUB RDDRESS 

90 REM RND 4 DfiTfl RDDRESSES. 

180 PR! "COMMAND MODE SELECT ONE" 

0. DEFINE SUBROUTINE RDDRESS" 
1 DEFINE PRINT RDDRESSES" 

2. DEFINE PRINT MODE" 

3. PRESET DATA* 

4. PRINT LIMIT" 

5. RUN PROGRAM" 

6. EXIT PROGRAM" 

7. SEE COMMAND OPTIONS" 
L 

IF L=8 GOTO 275 
IF L=l GOTO 148 

GOTO 187 

GOTO 239 
IF L=4 GOTO 266 
IF L=5 GOTO 281 
IF L=6 GOTO 1880 
IF L=7 GOTO 182 

" — COMMAND MODE — " 
145 GOTO 121 

147 REM INPUT 4 ADDRESSES 

148 PR "POSITION n— 9 ; 
151 GOSUB 886 

154 T=N 

157 PR "POSITION #2— ■; 

168 GOSUB 888 
163 U=N 

166 PR "POSITION #3--"; 

169 GOSUB 888 
172 V=N 

175 PR "POSITION #4--"; 
178 GOSUB 888 

181 W=N 



182 PR 
103 PR 
186 PR 
189 PR 
112 PR 
115 PR 

118 PR 

119 PR 

123 
124 
127 
138 
133 
136 
139 
141 
142 PR 



INPUT 



IF L=2 



IF 



L=3 



184 GOTO 142 

186 REM DEFINE PRINT MODE 

187 PR "PRINT MODE — SELECT ONE" 
190 PR " 1. ALL LOOPS" 

193 PR " 2. DEFINE NUMBER OF LOOPS" 

196 PR " 3. CONDITIONAL PRINT" 

199 INPUT H 

282 IF H=l GOTO 142 

285 IF H=2 GOTO 215 

288 IF K=3 GOTO 224 

211 GOTO 187 

215 PR "INPUT LOOP INCREMENT" 

218 INPUT K 

221 GOTO 142 

223 REM CONDITIONAL PRINT MODE 

224 GOSUB 888 
227 I=N 

238 GOSUB 858 
233 J=N 
236 GOTO 142 

238 REM PRESET DATA 

239 GOSUB 888 
242 P=N 

245 GOSUB 856 

248 6=N 

251 Y=USR<S+24,P,Q> 

254 PR "ANY MORE TO PRESET?(1=N 2=V>' 

257 INPUT V 

268 IF Y=2 GOTO 239 
263 GOTO 142 

265 REM SET PRINT LIMIT 

266 PR "INPUT PRINT LIMIT" 

269 INPUT G 
272 GOTO 142 

274 REM DEFINE SUB START ADDRESS 

275 GOSUB 888 

276 0=N 

278 GOTO 142 

288 REM RUN PROGRAM 
281 PR 

284 PR "LOOP", "-1-", "-2- n , 
287 PR 

289 X=8 

298 P=8 

293 P=P+1 

294 V=USR<0) 

295 IF P=P/56*58 THEN PR P 

296 IF H=i GOTO 314 

299 IF H=2 GOTO 323 

381 REM CONDITIONAL PRIN 

382 Y=USRCS+2& I) 
305 IF J=Y GOSUB 588 
388 IF X=G GOTO 142 






NT 
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-LISTING #1 CONTINUED 



311 GOTO 293 



313 

314 

317 

328 

322 

323 

325 

327 

349 

356 

355 

368 

376 

375 

480 

401 

462 

403 

404 

485 

406 

487 

408 

489 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

499 

506 

505 

518 

515 

520 



REM PRINT ALL LOOPS 

GOSUB 588 

IF X=G GOTO 142 

GOTO 293 

REM DEFINED NUMBER OF LOOPS 

IF P=P/K*K G0SU8 566 

IF X=G GOTO 142 

GOTO 293 

REM SUB TO PRINT 2 HEX DIGITS 

H=Z/16 

Z=Z-H*16 

G0SU8 488+H+K 

GOSUB 468+Z+Z 

RETURN 

PR 8; 

RETURN 

PR it 

RETURN 

PR 2; 

RETURN 

PR 3; 

RETURN 

PR 4; 

RETURN 

PR 5; 

RETURN 

PR 6; 

RETURN 

PR ?i 

RETURN 

PR 8> 

RETURN 

PR Si 

RETURN 

PR "A"; 

RETURN 

PR "B"; 

RETURN 

PR "C"; 

RETURN 

PR "D M ; 

RETURN 

PR "E"; 

RETURN 

PR "F"; 

RETURN 

REM SUB TO PRINT 4 ADDRESSES 

PR P 

Z=USR<S+28, T) 

GOSUB 358 

DC U II . 

Z=USR<S+28,U) 



525 GOSUB 358 
538 PR " "■ 

535 Z=USR<S+28,V) 
548 GOSUB 358 
545 PR " "■ 

556 Z=USR<S+28/w> 
555 GOSUB 358 
560 PR 
565 X=X+i 
570 RETURN 

806 REM SUB ADDRESSCHEX TO DEC) 
882 W=8 
805 X s ! 

88? PR "INPUT ADDRESS" 
818 INPUT R 
815 GOSUB 908 
820 IF X=4 RETURN 
825 X=X+1 
838 GOTO 818 

850 REM SUB DflTACHEX TO DEC) 
852 N=8 
855 X=l 

857 PR "INPUT DATA" 
868 INPUT R 
865 60SU6 988 
878 IF X=2 RETURN 
875 X=X+1 
888 GOTO 868 

988 REM HEX TO DECIMAL SUB 
IF R>999 THEN N=N*i€ 



985 
918 
915 
928 
925 



IF R>99 THEN N=N*16 



IF R>9 THEN N=N*16 

IF R>0 GOTO 998 

IF R<8 THEN R=-R 
930 N=N*i6+R 
935 RETURN 

998 R=R+R/1088*1536+R/188*96+R/18*6 
995 GOTO 925 
1086 END 
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LISTING #2- 



8288 

8262 

8284 

8285 

8286 

8288 

826fi 

828C 

828E 

8210 

8213 

8215 

8217 

8213 

821B 

821D 

021F 

0221 

8224 

0226 

8228 

022fi 

022C 

822E 

8238 

8232 

8235 

8237 



82 



m 88 
85 84 
F8 
18 

fl5 91 
83 23 
F8 87 
63 81 
85 81 
4C 17 
fi3 81 
85 01 
85 82 
C9 28 
F8 87 
63 81 
85 82 
4C 28 82 
A3 81 
85 82 
R5 83 
C3 33 
F8 87 
63 01 
85 83 
4C 33 
m 81 

83 

81 



PHV. 
EMT. 
INT. 
CRIT 



82 



85 



8233 R5 
8238 C3 8i 



823D 



8241 

8243 

8245 

8247 

8243 

0248 

024D 

824F 

8251 

0253 

0255 

0257 

0258 

0258 

825D 

825F 

8262 

0264 



F8 19 
C3 12 
F8 15 
85 82 
C3 81 
F8 14 
C3 15 
F8 18 
85 83 
C5 81 
F8 8F 
C3 17 
F8 86 
68 

E£ 84 
4C 43 82 
£6 84 
C 40 82 
E6 84 
4C 57 82 



.OR 
DL 
.DL 
.DL 
.DL 
LDfi 
STfi 

STAR SED 
CLC 
LDfi 
CUP 
BEG 
ADC 
STfi 
JMP 

SET1 LDfi 
STfl 

EMOT LDfi 
CMP 
BEQ 
ADC 
STfi 
JMP 

SET2 LDfi 
STfi 

INTL LDfi 
CMP 
BEQ 
fiDC 
STfi 
JMP 
LDfi 
STfi 

PCRT LDfi 
CMP 
BEQ 



8288 



8882 
8083 



SETS 



*CRIT 



*PHV. 

23 

SET1 

81 

*PHV. 

EMOT 

81 

*PHV. 

*EMT. 

28 

SET2 

81 

*EMT. 

INTL 

81 

*EMT. 

*int. 

33 

SET3 

81 

*INT. 

PCRT 

81 

*INT. 

*PHV. 

81 

L0P1 



ECRT 



icrt 



EXIT 

L0P1 

L0P2 



L0P3 



END. 



CMP 12 
BEQ L0P1 
LDfi *£MT, 
CMP 81 
BEQ L0P2 
CMP 15 
BEQ L0P2 
LDfi *INT. 
CMP 81 
BEQ L0P3 
CMP 17 
BEQ. LOPS 
RTS 

INC *CRIT 
JMP ECRT 
INC *CR17 
JMP ICRT 

INC *CRIT 
JMP EXIT 

EN 



STftRT ADDRESS 
LABELS 



STftRT 



INCREMENT PHV 



INCREMENT EMT 



INCREMENT INT 



PHV CRITICflL? 



EMT CRITICAL? 



INT CRITICfiL? 



SVMBOL TABLE 


PHV. 


8881 


EMT. 


0882 


INT. 


8803 


CRIT 


0884 


STfiR 


0284 


SET1 


8213 


EMOT 


0217 


SET2 


0224 


INTL 


0228 


SETS 


8235 


PCRT 


0233 


ECRT 


0243 


ICRT 


024D 


EXIT 


0257 


L0P1 


0258 


L0P2 


025D 


LOPS 


0262 


END. 


0267 



INCREMENT CRI 
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-SflMFLE #1- 



?3 



SAMPLE tt 

-COMMAND MODE — 



• RUN 

COMMRND MODE SELECT ONE 

8. DEFINE SUBROUTINE RDDRESS 

1. DEFINE PRINT ADDRESSES 

2. DEFINE PRINT MODE 

3. PRESET DflTfi 

4. PRINT LIMIT 

5. RUN PROGRAM 

6. EXIT PROGRAM 

7. SEE COMMAND OPTIONS 
? 8 

INPUT ADDRESS 
? 8/ 2. 8, 8 

— COMMAND MODE — 
? 1 

POSITION #1— INPUT ADDRESS 
? 8, 8, 8, 1 

POSITION #2— INPUT ADDRESS 
? 8,8,8,2 

POSITION #3--INPUT ADDRESS 
? 8,8,8,3 

POSITION #4— INPUT ADDRESS 
? 8,8,8,4 

— COMMAND MODE — 
?5 



LOOP -1- 



-2- 



-3- 



-4- 



i 


82 


82 


12 


88 


2 


83 


83 


13 


88 


3 


84 


84 


14 


88 


4 


85 


85 


15 


88 


5 


86 


86 


16 


88 


6 


87 


87 


17 


81 


7 


88 


88 


18 


88 


8 


89 


89 


19 


88 


9 


18 


18 


28 


88 


18 


11 


11 


21 


88 



INPUT ADDRESS 
? 8, 8, 8,1 

INPUT DATA 
?2,8 

ANV MORE TO PRESET?(1=N 2=V> 
?2 

INPUT ADDRESS 
? 8, 8, 8, 2 

INPUT DATA 
? 2,8 

ANV MORE TO PRES£T?Ci=N 2=V) 
? 2 

INPUT RDDRESS 
? 8, 8, 8, 3 

INPUT DATA 
? 2,8 

ANV MORE TO PRESET?(1=N 2=V) 
? 1 



? 4 



-COMMAND MODE — 



INPUT PRINT LIMIT 






?15 










— COMMAND MODE- 


— _ 






?5 










LOOP 


-i- 


-2- 


-3- 


-4- 


1 


21 


21 


21 


88 


2 


22 


22 


22 


88 


3 


23 


23 


23 


88 


4 


81 


24 


24 


81 


5 


82 


25 


25 


88 


6 


83 


26 


26 


88 


7 


84 


27 


27 


88 


8 


85 


28 


28 


88 


9 


86 


81 


29 


81 


18 


87 


82 


38 


88 


11 


88 


83 


31 


88 


12 


^ 


84 


32 


88 


13 


18 


85 


33 


88 


14 


11 


86 


81 


81 


15 


12 


87 


82 


81 
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SAMPLE #3 

— CGMMfiNQ MODE — 
? 4 

INPUT PRINT LIMIT 
? 4 



MODE — 



? 2 



PRINT MODE — SELECT ONE 

1. fiLL LOOPS 

2. DEFINE NUMBER OF LOOPS 

3. CONDITIONS PRINT 



? 2 



INPUT LOOP INCREMENT 
? 23 

— COMMfiNO MODE — 
? 5 



-SRMPLE #4- 
— COMMAND MODE — 
? 2 



PRINT RODE — SELECT ONE 
1 ALL LOOPS 



£. DEFINE NUMBER OF LOOPS 



6. CONDITIONS PRINT 






INPUT ADDRESS 
? 8,8,8,4 

INPUT DRTR 
? 9,2 

— COMMfiND MODE- 
? 5 



LOOP 



-1- 



-2- 



-3- 



-4- 



LOOP 


-1- 


-2- 


-3- 


-4- 


23 


12 


02 


25 


01 


46 


12 


25 


15 


01 


58 










69 


12 


26 


05 


81 


92 


12 


15 


28 


82 



59 






188 






138 


12 


13 


158 






154 


05 


01 


196 


01 


15 


200 






250 







253 



12 



16 



THE OSI FLASHER: 
BASIC-MACHINE CODE INTERFACING 

Robert E. Jones 
Handley High School 

West Point St. 
Roanoke, AL 36274 



01 

17 
26 



17 



82 

82 
02 



02 



The following program is an example of how a machine language 
program for the 6502 microprocessor may be loaded from BASIC, 
executed, and then control may be returned to BASIC (and back 
again and again, as in this case.) I wrote the program to use in my 
job as a science teacher at Handley High School in Roanoke, 
Alabama, where we have two 6502 based microcomputers to use 
in teaching programming and solving problems of a repetitive 
nature in chemistry and physics. This program is set up to be run 
on our OHIO SCIENTIFIC CHALLENGER II. 

Our CHALLENGER was originally a MODEL 65V-4K with a total of 
12K of RAM. It has been updated with the new MODEL 500 CPU 
board with OSI MICROSOFT 8K BASIC in ROM. We also use a 
COMMODORE PET with 8K of RAM for programs which need 
graphics. 

The program may be run on any OSI challenger with a video board 
set up to start at screen memory location 53312 (base 10) or 
DOOO (hex). Our video board is the old 440 BOARD with only 
four pages of screen memory. The new MODEL 540 video 



10 FOR Y = 1 TO 32 : PRINT : NEXT Y 

20 PRINT "INPUT THE DELAY CONSTANT." 

30 PRINT "USE A LOW NUMBER FOR A" 

40 PRINT "FAST FLASH RATE ( <.5)." 

50 INPUT T 

60 FOR P = 4096 TO 4130 

70 READ C : POKE P,C 

80 NEXT P 

90 POKE 11,0 : POKE 12,16 

100 FOR X = 53200 TO 54380 

110 POKE X,INT(255*RND(8)) 

120 NEXT X 

130 FOR D = 1 TO 100*T 

140 NEXT D 

150 X = USR (X) 

160 GOTO 130 

170 DATA 160,4,162,0,189,0,208 

180 DATA 105,1,157,0,208,232,208 

190 DATA 245,238,6,16,238,11,16 

200 DATA 136,208,236,169,208,141,6 

210 DATA 16,141,11,16,96,0,16 
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OS I FLASHER 



1000 



BY ROBERT E. JONES 
FEBRUARY 1979 

ORG $1000 



1000 AO 


04 




START LDYIM 


$04 


1002 A2 


00 




LDXIM 


$00 


1004 BD 


00 


DO 


LOOP LDAX 


$D000 


1007 69 


01 




ADCIM 


$01 


1009 9D 


00 


DO 


STAX 


$D00C 


100C E8 






INX 




100D DO 


F5 




BNE 


LOOP 


100F EE 


06 


10 


INC 


$1006 


1012 EE 


OB 


10 


INC 


$100B 


1015 68 






DEY 




1016 DO 


EC 




BNE 


LOOP 


1018 A9 


DO 




LDAIM 


$D0 


101A 8D 


06 


10 


STA 


$1006 


101D 8D 


OB 


10 


STA 


$100B 


1020 4C 


00 


10 


JMP 


START 



LOAD INDEX Y WITH 4 

LOAD INDEX X WITH 

LOAD A WITH CONTENTS OF DCOO + 

ADD 1 

STORE AT DOOO + X 

BUMP POINTER/COUNTER 

BRANCH IF NOT ZERO 

INCREMENT ADDRESSES 

DECREMENT INDEX Y 
LOOP IF NOT ZERO 



CONTINUE RUNNING 



WARNING: Set the BASIC LOMEM pointer to some address above this machine language 
code before running BASIC, or you will destroy the code. 



board-based Challengers may use this program to occupy all eight 
pages of video memory if a change is made on line 170. The 
number to be changed is the second number of the DATA 
statement, the number which tells the program how many pages of 
screen memory to use. For 540-based systems the new version 
should be as follows: 

170 data 160,8,162,0,189,0,208 



The reason for the ease of change is that the starting locations for 
the screen memory on both the 440 and 540 boards is the same, 
DOOO (hex). The latter version with the provision for eight pages 
of video display will work on either type of board, but it seems 
tedious to me to poke numbers into screen memory locations not 
visible on my 440-based machine. 



LINE 10 
LINES 20-50 

LINES 60-80 

LINE 90 

LINES 100-120 
LINES 130-140 



LINE 150 
LINE 160 
LINES 170-210 



CLEARS THE SCREEN 

GIVE INSTRUCTIONS AND INPUT THE DELAY FACTOR. 

THE LARGER THE DELAY FACTOR, THE SLOWER THE FLASH RATE. 

READ THE MACHINE CODE PROGRAM AND STORE IT IN MEMORY LOCATIONS 

4096 TO 4130 (DECIMAL) OR 1000 TO 1022 (HEX). 

POINTS TO THE START OF THE USR ROUTINE - WHERE TO JUMP TO WHEN 

EXITING FROM BASIC. 

CREATE A SCREEN FULL OF RANDOM CHARACTERS 

DELAY ROUTINE TO ALLOW THE SCREEN TO REMAIN AS IS FOR A TIME 

DEPENDING ON THE SIZE OF THE DELAY FACTOR BEFORE RETURNING TO 

THE MACHINE CODE PROGRAM. 

CAUSES AN EXIT FROM BASIC TO THE MACHINE CODE PROGRAM 

SENDS THE PROGRAM BACK TO THE DELAY ROUTINE WHILE IN BASIC. 

DATA STATEMENTS FOR THE MACHINE CODE PROGRAM 
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THE MICRO SOFTWARE CATALOG: IV 

Mike Rowe 

P.O. Box 3 

So. Chelmsford, MA 01824 



Name: Bridge Challenger 

System: PET or Apple II 

Memory: 8K PET or 16K Apple II 

Language: Not specified 

Hardware: Not specified 

Description: Bridge Challenger lets you and the 

dummy play four person Contract Bridge against 

the computer. The program will deal hands at 

random or according to your criterion for high 

card points, and you can save hands on cassette 

and reload them for later play. You can review 

tricks, rotate hands East-West, shuffle only the 

defense hands, or replay hands when the cards 

are known . 

Copies : Not specified 

Price: $14.95 

Includes: Not specified 

Author: Not specified 

Available from: 

Personal Software 

P.O. Box 136 

Cambridge, MA 02138 

517/783-0694 



Name: CURSOR - Programs for PET Computers 
System : PET 
Memory : 8K 

Language: BASIC and Assembly Language 
Hardware: Standard PET 

Description: CURSOR is a cassette magazine with 
proven programs written just for the 8K PET. 
Each month the subscriber receives a C-30 cas- 
sette with five or more high quality programs 
for the PET. People can't read this "magnetic 
magazine", but the PET can! The CURSOR staff 
includes professional programmers who design and 
write many of the programs. They also carefully 
edit programs which are purchased from individ- 
ual authors. 
Copies: Not specified 
Price: $24 for 12 monthly issues 
Includes: Cassette 
Authors : Many and varied 
Available from : 

Ron Jeffries, Publisher 

CURSOR 

P.O. Box 550 

Goleta, CA 93017 

805/967-0905 



Name: PET Schematics and PET ROM Routines 
System : PET 
Memory : None 
Language : None 
Hardware: None 

Description: PET Schmatics is a very complete 
set of accurately and painstakingly drawn schem- 
atics about your PET. It includes a 24" x 30" 
CPU board , plus oversized drawings of the Video 
Monitor and Tape Recorder, plus complete Parts 
layout - all the things you hoped to get from 
Commodore, but didn't! 

PET ROM Routines are complete as- 
sembly listings of all 7 ROMs, plus identified 
subroutine entry points. 
Copies: Not specified. 
Price: PET Schematics - $34.95 

PET ROM Routines - $19.95 
Available from : 

PET-SHACK Software House 

Marketing and Research Co. 

P.O. Box 966 

Mishawaka, IN 46544 



Name: S-C Assembler II 
System: Apple II 
Memory : 8K 

Language: Assembly language 
Hardware: Apple II, optional printer 
Description : Combined text editor and assembler 
carefully integrated with the Apple II ROM-based 
routines. Editor indues full Apple II screen 
editing, BASIC-like line-number editing, tab 
stops, and renumbering. LOAD, SAVE, and APPEND 
commands for cassette storage . Standard Apple 
II syntax for opcodes and address modes. Labels 
(1 to 4 characters), arithmetic expressions, and 
comments. English language error messages. 
Monitor commands directly available within as- 
sembler. Speed and suspension control over 
listing and assembly. 
Copies: Just released, over 100 sold. 
Price: $20.00 (Texas residents add 5% tax) 
Includes: Cassette in Apple II format and 

a 28 page reference manual . 
Author: Bob Sander-Cederlof 
Available from: 

S-C Software 

P.O. Box 5537 

Richardson, TX 75080 



Name: PL/65 or CSL/65 
System: SYSTEM 65 or PDP 11 
Memory: 16K bytes RAM 
Language : Machine language . 
Hardware: Rockwell SYSTEM 65 

Description: A high-level language resembling 
PL/1 and ALGOL is now available to designers de- 
veloping programs for the 6500 microprocessor 
family using either the SYSTEM 65 development 
system of the PDP 11 computer. PL/65 is consid- 
erably easier to use than assembly language or 
object code. The PL/65 compiler outputs source 
code to the SYSTEM 65's resident assembler. 
This permits enhancing or debugging at the as- 
sembler level before object code is generated. 
In addition, PL/65 statements may be mixed with 
assembly language instructions for timing or 
code optimization. 
Copies: Not specified. 
Price: Not specified from Rockwell. 

$500 from COMPAS. 
Includes: Minifloppy diskette. 
Authors: Not specified. 
Available from: 

Electronic Devices Division 

Rockwell Internationsal 

P.O. Box 3669 

Anaheim, CA 92803 

714/632-2321 (Leo Scanlon) 

213/386-8776 (Dan Schlosky) 

COMPAS - Computer Applications Corp. 

413 Kellogg 

P.O. Box 687 

Ames, IA 50010 

515/232-8181 (Michael R. Corder) 



NOTE: Since some of these Software Catalog listings ap- 
peared as long ago as Oct. 1978, the reader is advised to check 
with the vendor to determine current availability, price, etc. 
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Name: PRO-CAL I 
System: PET 
Memory: Not specified. 
Language: BASIC and machine language. 
Hardware: Not specified. 

Description: A reverse polish scientific 
calculator program, ideally suited for scientif- 
ic and educational applications. Supports sing- 
le key execution of more than 50 forward and in- 
verse arithmetic , algebraic , trigonometric and 
exponential functions. It implements calcula- 
tions in binary, octal, decimal, and hexidecimal 
modes with single keystroke conversion between 
modes and simultaneous decimal equivalen dis- 
play. It also allows the recording and playback 
of calculator programs on cassette tape permit- 
ting the use of most calculator software already 
in existance up to a limit of 255 steps. 
Copies: Not specified. 
Price: $26.00 domestic, $28.00 foreign. 
Includes: Software on cassette and an operating 

manual . 
Authors: Not specified. 
Available from: 

Applications Research Co. 

13460 Robleda Road 

Los Altos Hills, CA 94022 



Name : MICROCHESS 
Systems: PET and Apple II 
Memory: PET - 8K/ Apple II 16K 
Language : 6502 Machine Language 
Hardware: Standard PET or Apple II 
Description: MICROCHESS is the culmination of 
two years of chessplaying program development by 
Peter Jennings, author of the famous 1K byte 
chess program for the KIM-1. MICROCHESS offers 
eight levels of play to suit everyone from the 
beginner learning chess to the serious player. 
It examines positions as many as 6 moves ahead , 
and includes a chess clock for tournament play. 
Every move is checked for legality and the 
current position is display on a graphic chess- 
board. You can play White or Black, set up and 
play from special board positions, or even watch 
the computer play against itself. 
Copies: Not specified. 
Price: $19.95 
Includes: Not specified. 
Author: Peter Jennings 
Available from : 

Personal Software 

P.O. Box 136 

Cambridge, MA 02138 

617/783-0694 



Name: Financial Software 

System: Apple II (easily modified for PET) 
Language : Applesoft II 
Hardware : Apple II 

Description: Sophisticated financial programs 
used to aid in investment analysis. The follow- 
ing programs are currently available: Black- 
Scholes Option Analysis, Security Analysis using 
the Capital Asset Pricing Model, Bond Pricing I 
and II, Cash Flow and Present Value Analysis I 
and II, Stock Valuation, Rates of Return, Calcu- 
lations and Mortgage Analysis. 
Copies: Just released. 

Price: $15.00 each or $50.00 for all 9 programs 
Includes: Cassette, annotated source listings, 

operating and modifying instructions, 

sample runs and backgroud information. 
Author: Eric Rosenfeld 
Available from: 

Eric Rosenfeld 

70 Lancaster Road 

Arlington, MA 02174 



Name: Apple II BASEBALL 
System: Apple II 
Memory: 16K or more 
Language: Integer BASIC 
Hardware: Standard Apple II 

Description: An interactive baseball game that 
uses color graphics extensively. You can play a 
7 or 9 inning game with a friend, (it will han- 
dle extra innings) , or play alone against the 
computer. Has sound effects with men running 
bases. Keeps track of team runs, hits, innings, 
balls and strikes, outs, batter-up and uses pad- 
dle input to interact with the game. Uses every 
available byte of memory. 
Copies: Just released. 

(Dealers inquiries invited) 
Price: $12.50 

Includes; Game Cassette, User Bookelt with com- 
plete BASIC listing. 

Authors: Pat Chirichella and Annette Nappi 
Available from: 

Pat Chirichella 

506 Fairview Avenue 

Ridgewood, NY 11237 



Name: DDT*-65 Dynamic Debugging Tool 

System: Any 6502 based system 

Memory: 3K RAM/1K RAM for loader 

Language: Machine Language 

Hardware: 32 char/line terminal 

Description: DDT-65 is an advanced debugger 

that allows easy assembly and disassembly in 

650X mnemonics. Software single-stepping and 

automatic breakpoint insertion/deletion allow 

debuffing of code even in PROM. DDT-65 comes in 

a relocatable form on tape for loading into any 

memory or for PROM programming. 

Copies: 11+ 

Price: $25.00 

Include: 10 page manual, relocating tape 

cassette . 
Ordering Info: KIM format cassette - K 
Kansas City at 300 baud for 0SI - 
Kansas City at 300 baud for TIM/ JOLT - T 
Author: Rich Challen 
Available from: 

Rich Challen 

939 Indian Ridge Drive 

Lynchburg, VA 24502 
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THE MICRO SOFTWARE CATALOG: V 



Mike Rowe 

P.O. Box 3 

S. Chelmsford, MA 01824 



Name: Text Editor/Word Processor 

System: Apple II 

Memory: 24K for cassette, 32K for Disk II 

Language: Applesoft II 

Hardware: Apple II, cassette tape recorder or Disk II and printer 

Description: Uses any width line, features upper and lower case 

using inverse video, justification by adding blanks, user set and 

cleared tabs in any column, automatically renumbers lines on 

insertion or deletion, usable with any printer interface by 

extremely slight program modifcation. 

Copies: 100^ 

Price: $50. for cassette version, $60 for Disk version 

Includes: cassette or diskette and instructions. Source listing 

available by sending SASE with serial number 

Author: Craig Vaughn 

Available from: Local Apple dealers or: 

Peripherals Unlimited 

6012 Warwood Road 

Lakewood, CA 90713 

Name: Mailing Label Package 

System: Apple II 

Memory: At least 32K 

Language: Applesoft II 

Hardware: Apple II, Disk II, and printer 

Description: Stores 3-line or 4-line addresses (may be mixed) plus 

phone # and a 15-character code field, any one record may be 

accessed by name or phone #, prints in zip code order, will print all 

records or select by code field with wild card, any number of labels 

horizontally, user formats spacing, may be used with any printer 

interface with very slight program modification. Five hundred 

records maximum on one diskette with 48K. 

Copies: 20 

Price: $40 

Includes: Diskette and instructions. Source listing available by 

sending SASE with serial number. 

Author: Claudia Vaughn 

Available from: Local Apple dealers or: 

Peripherals Unlimited 

6012 Warwood Road 

Lakewood, CA 90713 

Name: APPLE PILOT 

System: Apple II 

Memory: 16K tape I/O, 32K Disk I/O 

Language: Interpreter in Applesoft II 

Hardware: Apple II 

Description: A language to write games and school lessons with. 

Only 8 commands to learn plus special Apple graphics and tone 

commands. 

Copies in circulation: 10 

Price: $20. Add $5 for a diskette. 

Includes: Tape and manual and 1 year updates. 

Author: Earl Keyser 

Available from: 

The Pilot Exchange 

22 Clover Lane 

Mason City, LA 50401 



Name: Programs for Indoor Advertising Applications 

System: Apple II 

Memory: 16K 

Language: Integer BASIC and Machine Language 

Hardware: Standard Apple II 

Description: This Program allows the Apple to be used as an 

automated Advertising machine for stores, trade shows, etc. 
HI-RES ALPHANUMERIC MESSAGES: 28 Characters per line, 4 
lines, 3 pages of text. Features a right-side 'word-rap' plus 
instant 'page desolve', as one page ends and the next begins. 
Characters are crisp and can be Lavender or Green on a Black 
Background. They 'puff on at reading speed. 
GIANT-LETTER SEQUENCES: Brilliantly-colored letters, of full 
screen height appear one-at-a-time, in sequence, to spell out 
messages. The color of Successive Words progresses through 
the Apple rainbow. A running summary of letters appears in 
the bottom four screen lines, as the giant letters are 
presented. 

THE SCROLLING WONDER: Allows user to enter up to four 
brief messages. They appear in Apple upper case by 'popping' 
onto the screen from below. Messages enter in random 
sequence, with random space between them. They have 
random horizontal placement and a random 50% sample of 
the messages 'flash'. A multiple-rainbow grand finale ends the 
program. 

Copies: All just released 

Prices: SCROLLING WONDER $8.00 

GIANT-LETTER SEQUENCES $8.00 
HI-RES ALPHANUMERIC MSC $15.00 
ALL THREE PROGRAMS $25.00 

Includes: Cassette only, with verbal instructions on reverse side of 

cassette and written instructions on screen. 

Author: Howard Rothman 

Available from: 

Connecticut Information Systems Co. 
218 Huntington Road 
Bridgeport, CT 06608 
203/579-0472 



Name: Hangman 

System: Apple II 

Memory: 20K minimum 

Language: BASIC 

Hardware: Apple II, Disk II 

Description: This program is the old traditional Hangman we used 

to play with pencil and paper except that the computer will choose 

the word for you to guess. The disk comes with over 350 words and 

has routines accessed with 'ESC to add or change words. Callows 

is in lores and neck stretches when floor drops. 

Copies: Aprox. 25 

Price: $14.00 post paid. Calif, residents add sales tax 

Includes: Disk with program and over 350 words. 

Order Info: Master Charge and Visa accepted. 

*kuthor: Loy Spurlock 

Available from: 

Computer Forum Company 

14052 E. Firestone Blvd. 

Santa Fe Springs, CA 90670 
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Name: Feet and Inches Calculator 

System: Apple II 

Memory: 16K 

Language: Applesoft ROM 

Hardware: Applesoft ROM 

Description: This program does calculations based on entries 

made in feet and inches. Functions include addition, subtraction, 

division, multiplication, roots, powers and decimal equivalents. 

Operating screen consists of three windows: one for entries, one 

lists functions, and the third reproduces the problem after entry. 

Performs calculations to 1/64". Has memory which allows recall of 

last answer for next problem. 

Copies: Just released 

Price: $10.00 

Includes: Cassette tape 

Author: Dick Dickinson 

Available from: 

Dick Dickinson 

5400 Western Hills Drive 

Austin, TX 78731 

Name: BLOCKADE 
Systems: Challenger IIP 

Memory Required: 4K 
Language: BASIC and assembly 
Hardware Required: Challenger II or III 

Description: Two players are needed to play this challenging game 
in which the object is to block out your opponent before he blocks 
you out! Each play has four keys for NESW direction, which enable 
you to construct a wall, trying to block out the other player. The 
first person to run into the wall loses. Programmed for large 
characters, or small. Uses Assembly for fast clearing of the screen 
and printing of characters. Complete with scoring. 
Copies: Lots! 
Price: $8.00 for listing, cassette, and instructions. 

$4.00 for listing and instructions only. 
Includes: Cassette at 300 Baud. ($8). 
Author: Bill Langford 
Available from: 

Bill Langford 

3823 Malec Circle 

Sarasota, Fla. 33583 

Name: OSI Games 

System: OSI Superboard I I/Challenger 1P 

Memory: Not specified 

Language: Not specified 

Hardware: Not specified 

Description: Dodgem - use strategy to get your pieces off the 

opposite side of the board (1 or 2 players). Tank Attack - seek and 

destroy enemy guns hidden among houses and trees before they 

get you (1 player). Free-for-all - airplane, destroyer, and submarine 

vie for each other (1 or 2 players). Hidden Maze - find your way 

through an invisible maze with one-way gates (1 or 2 players). 

Copies: Not specified 

Price: $7.95 {t 75 cents postage) 

Includes: Tape cassette, instruction booklet. 

Author: Not specified 

Available from: A large number of dealers or: 

Creative Computing Software 

P.O. Box 789-M 

Morristown, NJ 07960 

201/540-0445 



Name: 3D Graphics 

System: Apple II 

Memory: 16K 

Language: Floating Point BASIC 

Hardware: Apple II (Applesoft ROM for Load and Go option) 

Description: Accurate 3D to 2D wire frame perspective 

transformations of your data bases. The standard software package 

contains the BASIC listing for transformation of 3D line endpoints 

(X,Y,Z coordinates) to perspective drawing endpoints in two 

dimensions (X,Y coordinates) for high-resolution plotting. User has 

control over location in space, direction of view, and viewing 

window (telephoto or wide angle). User must be able to run 

floating point BASIC and hi-res graphics simultaneously. Optional 

Load and Go version is specifically for Applesoft ROM and 

includes a sample data base and output-plotting interface. It is 

truly Load and Go. 

Copies: Over 200 sold 

Price: $22 ($26 with Load and Go option) 

Includes: 60 page manual and listing (Applesoft II cassette with 

Load and Go option) 

Author: Bruce Artwick (option by Jim Harter) 

Available from: 

SubLOCIC 

P.O. Box V 

Savoy, IL 61874 

217/367-0299 



Name: Program Catalog 

System: Apple II 

Memory: 24K minimum 

Language: BASIC 

Hardware: Apple II, Disk II 

Description: This program will catalog all your disk programs by 

category on one disk. It will keep track of all your programs and 

which disks they are on as well as keeping notes about the program 

so you can be sure of the program before you hit the proper key to 

have this program load and run the program you want. It also 

contains numerous routines to manipulate the information. 

Copies: New, just released. 

Price: $19.00 post paid. Calif, residents add sales tax. 

Includes: Program on disk, documentation 

Order Info: Master Charge and Visa accepted. 

Author: Loy Spurlock 

Available from: 

Computer Forum Company 

14052 E. Firestone Blvd. 

Santa Fe Springs, CA 90670 



Editor's Note: The MICRO Software Catalog was the most 
mentioned article in our recent reader survey. If you have software 
you would like to bring to the attention of the MICRO readers, 
simply type it up in the proper format and send it in. Please adhere 
to the format as strictly as possible, including UPPER and lower 
case, titles, and so forth. Since this material will be typeset 
someone has to get it into proper form. If you submit it in proper 
form, you increase your chances for early inclusion in MICRO. 
There is no charge for appearing in this catalog. 

We are happy to see some programs for the OSI systems 
appearing. 
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Name: MAXIT! 
System: PET 
Memory: 8K 
Language: BASIC 
Hardware: Standard 

Description: A challenging number game played between two per- 
sons or versus the PET. From an 8 x 8 board players alternatively 
move horizontally and vertically trying to maximize their score and 
minimize their opponents. An exciting, engrossing game, that bears 
returning to multiple times. Suitable for young and old alike. Ex- 
cellent graphics. 
Copies: 50 plus 

Price: $4.95 plus 32' tax for CA residents, pp. 
Includes: Cassette and 2 page printed instructions. 
Author: Harry J. Saal 
Available from: 
Harry). Saal 
810 Garland Drive 
Palo Alto, CA 94303 

Name: 6502 Tiny Editor - Assembler 
System: Any 6502 based system. 

Memory Program takes 1K, 4K recommended for source and object 
code and label table. 
Language: Machine Language 
Hardware: ASCII Keyboard and CRT display. 

Description: A single pass assembler, closely follows MOS 
Mnemonics, and is extremely memory efficient. The editor is 
designed to be easily extended by the user. Editor commands in- 
clude: Find line, delete line, insert line, list source, list symbolic 
labels, define label, and set origin. A single pass assembler allows 
the object code to overwrite the source code - larger source 
programs can be assembled in a given memory size. 
Copies: Just released: 

Price: $19.95 (K I M-1 Hypertape cassette: $3.00 extra) 
Include: User manual and complete source and object listing, fully 
commented, with modification instructions. 
Author: Michael Allen 
Available from: 

Michael Allen 

6025 Kimbark 

Chicago, IL. 60637 

Name: 6502 ROBOT 
System: Any 6502 based system 
Memory: 1.5K 

Language: Machine language 

Hardware: ASCII Keyboard and CRT display, or "turtle", or plotter. 
Description: ROBOT is an interactive programming language for 
the control of robots, such as "turtle", plotter or CRT cursor. 
ROBOT'S command processing module is designed to allow the user 
to design his own language of personalized commands and com- 
mand subroutines to suit his particular application. The version of- 
fered here includes a command set and subroutine package for the 
control of a CRT robot. 
Copies: Just released. 

Price: $5.00 (K I M-1 Hypertape cassette: $3.00 extra) 
Include: user manual, complete and fully commented source and 
object listing, instructions for adapting, modifying, and using the 
command processing module for other applications. 
Author: Michael Allen 
Available from: 

Michael Allen 

6025 Kimbark 

Chicago, IL 60637 



Name: OSI Games 

System: Challenger 

Memory: 4K 8K 

Language: Basic and Assembly 

Hardware: Challenger 

Description: The game programs are written for the challenger with 

the 440 video display and ASCII keyboard. Most of these will run on 

the 2p and 1p. Games such as Bomber and Klingon are written with 

simulated animation and Klingon also will support sound with PI A' 

port and tone oscillator. We also have lunar lander; Battleship; and 

others. 

Copies: Just released 

Price: $8.00 for listing and instructions and 300 baud cassette 

Author: William L. Taylor 

Available from: 

William L. Taylor 

264 Flora Rd. 

Leavittsburg, Ohio 44430 

Name: LINK 

System: PET 

Memory: Any amount 

Language: Assembly 

Hardware: Standard PET 

Description: This program will allow the user to link exclusively 

numbered BASIC programs in memory. This allows the programmer 

to develop complex programs as sub modules and then merge them 

together into the final functioning unit. A great time saver as the 

programmer can develop a library of subroutines which can be 

merged virtually at any time with the program which he is 

developing. With complete instructions on use. 

Copies: Just released 

price: $12.95 ppd, Michigan residents add 4 % sales tax. 

Includes: Cassette and instructions 

Author: G.Salked 

Order I nfo.: Master Charge and Visa accepted. 

Available from: 

Your local PET dealer or 

Dr. Daley 

425 Grove Ave. 

Berrien Springs, Ml 49103 

616-471-5514 

Name: PILOT 

System: PET 

Memory: 8K minimum 

Language: BASIC 

Hardware: Standard PET 

Description: A simple to use, easy to learn programming language. 

This is especially suited for use by children. Only 10 commands to 

learn with no complicated syntax plus special cursor and graphics 

control commands. 

Copies: 25 

Price: $12.95 ppd, Michigan residents add 4% sales tax. 

Includes: cassette and users manual. 

Author: R.F. DAley 

Orther I nfo.: Master Charge and Visa accepted 

Available from: 

Your local PET dealer or 

Dr. Daley 

425 Grove Ave 

Berrien Springs, Ml 49103 

616-471-5514 
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Name: Slow-Scan Television Package 

System: Apple II 

Memory: 16K (min) 

Language: Machine Language 

Hardware: Standard Apple II 

Description: This software system allows the Apple II to send and 

receive U.S. amateur standard slow-scan T.V. pictures (120 line-15 

Hz) via any ham radio SSB transceiver. A real-time display of the 

received picture in high-resolution graphics is accomplished with a 

sophisticated image processing algorithm. Low-resolution images 

for transmission are prepared with a large-character display editor 

as well as a drawing editor. All modulation and demodulation of 

the audio FM subcarrier is performed by the software — replacing 

hundreds of dollars of hardware required by other SSTV systems. 

Comes on cassette with 8 mins. of test pictures. 

Copies sold: about 100 

Price: $20. 

Includes: Cassette tape and 5 pages of documentation. 

Author: Chris H. Calfo - WB4JMD 

Available from: 

C.H. Calfo 

602 Orange St 

Charlottesville, VA 22901 



Name: S-C Assembler II (disk version) 

System: Apple II with at least one disk 

Memory: 24K or more 

Hardware: Apple II, Disk II, optional printer 

Description: Disk version of the popular S-C Assembler for the 

Apple II. Combines a text editor and an assembler in one memory 

resident package of 3072 bytes (1000-1BFF). Carefully integrated 

with the Apple II ROM-resident routines, and with Apple DOS. 

Editor includes full screen-editing, BASIC-like line number editing, 

tab stops, and renumbering. LOAD and SAVE commands for 

storage of source programs on disk files or cassette. JOIN 

command for appending two source programs from cassette. 

Standard Apple II syntax for opcodes and address modes. Labels 

(up to 6 characters), arithmetic expressions, comments in a 

liberated line format. English language error messages (not coded 

numbers). DOS and Apple Monitor commands directly available 

within the assembler. Speed and suspension control over listing 

and assembly. Includes printer deiver for Practical Automation 

printer, with instructions for modification to any other printer. 

(Cassette version is still available: it has fixed line format and 

labels up to four characters.) 

Copies: Over 200 of cassette version, over 25 of disk version. 

Price: $35 for disk version, $25 for cassette version (Texas residents 

add 5% sales tax) 

Includes: 32-page reference manual, disk with assembler, Master. 

Create, RAWDOS, and two sample source programs. 

Author: Rob Sander-Cederlof 

Available from: 

S-C SOFTWARF 

P.O. Box 5537 

Richardson. TX 75080 
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Name: PRO-CAL-I 

System: Commodore PET 

Memory: 8K 

Language: Microsoft BASIC 

Hardware: PET 

Description: PRO-CAL-I is a reverse polish programmable 

scientific calculator program ideally suited to scientific and 

educational applications. It combines the best features of the PET 

with those of hand-held calculators such as the HP 97 and the Tl 

"Programmer" It supports single key execution of more than 50 

functions and implements calculations in binary, octal, decimal, 

and hexidecimal number systems. The program displays 10 

memory registers, 5 stack registers, and a record of the 14 most 

current operations. 

Copes: 40 

Price: $26.00 for software on cassette and an operating manual. 

Author: Robert M. Munoz 

Available from: 

APPLICATIONS RESEARCH CO. 

13460 Robleda Rd. 

Los Altos Hills, CA 94022 

Name: FINANCIAL ANALYSIS: A Tutorial 

System: APPLE II and PET 

Memory: 16K 

Language: Basic 

Hardware: APPLE II with cassette recorder, or a PET (8K) 

Description: An interactive learning cassette with chapters on 

Risk, Short-term and Intermediate-term Financing, Financial 

Statements, and Key Business Ratios. The user is then put into the 

position of having to use these concepts by playing the Meany 

Manufacturing Business Came. 

Copies: Hundreds available 

Price: Sugg. Retail: $16.50 

Includes: Tape cassette and informative booklet 

Author: Brian Beninger 

Available from: 

Local APPLE or PET dealers of: 

SPEAKEASY SOFTWARE LTD. 

P.O. Box 1220 

Kemptville, Ont, KOC 1J0 

Name: STAT III 

System: Commodore PET 

Memory: 8K 

Language: BASIC 

Hardware: Standard PET 

Description: STAT III accepts a set of numbers and calculates the 

following: mean, median, mode, highest number in the data, 

lowest number in the data, range, variance, standard deviation, 

average deviation, and sample standard deviation. STAT III can 

display a bar graph of the users data on the CRT. In addition the 

user may correct errors in his inputted data before processing. 

Copies: Just released 

Price: $7.95 

Includes: Cassette, source listing (program is self documenting) 

Author: Michael J. McCann 

Available from: 

THE PET PAPER 

P.O. Box 43 

Audubon, PA 19407 



Name: Apple Pi 'Life' 

System: Apple II 

Memory: 4K 

Language: BASIC and assembly 

Hardware: Apple II with 2 operable game paddles with switches. 

Description: Apple Pi 'Life' allows variable grid sizes from 8X8 up 

to 40X40 in increments of 1. Paddle 1 is only read when the switch 

is depressed. Speed is controlled by paddle and can be varied 

from 550 gpm to 2000 gpm for an 8X8 grid. For a 40X40 grid, speed 

can be varied from 25 gpm to 140 gpm. The speaker is toggled each 

time a cell is processed, except at minimum or maximum speed, to 

give the sounds of 'Life'. The bottom of the grid wraps around to 

top of grid, and vice-versa. The right of the grid wraps around to 

left of grid, and vice-versa. There are three tables of pre-defined 

objects which can be setup on the grid by number and x,y 

location. A description of the object table structure is given in the 

documentation. Keyboard controls are: P-pause until next 'P', 

Z-zero «rid and setup objects, O-setup objects on grid, N-new 

colors, and I -exit program. Any two distinct colors may be used for 

live and dead cells. 

Copies: Nev just released. 

Price: $12.00. Texas residents add sales tax. 

Includes: Programs, object tables on cassette, documentation. 

Order Info: Checks only. 

Author: Harry L. Pruetz 

Available from: 

Microspan Software 

2213A Lanier Drive 

Austin, TX 78758 



Name: Amateur Radio Communications Package 

System: Apple II 

Memory: 8K (min) 

Language: Machine Language and Integer BASIC 

Hardware: Apple II and user provided interface 

Description: This software package allows the Apple II to 

communicate in any of three codes: Morse, Baudot, or ASCII, with 

a minimum amount of external hardware required. Some features 

include: Variable size text buffer and live keyboard allow 

preparing text for transmission while receiving or transmitting; 3 

field screen display — each field scrolling separately; user defined 

stored messages are referenced by a keyboard and can be inserted 

anywhere in the text; automatic 72 character line formatting with 

word wrap-around; continuously variable code speeds; adaptive 

Morse receive and lots more! All I/O uses the on-board (game) I/O 

connector. 

Copies sold: over 100 

Price: $18. 

Includes. Cassette tape and documentation with sample interface. 

Author: Chris H. Calfo - WB4JMD 

Available from: 

C.H. Calfo 

602 Orange St. 

Charlottesville, VA 22901 



Name: TRANSACTIONAL ANALYSIS: An Introduction 

System: APPLE II and PET 

Memory: 16K 

Language: Basic 

Hardware: APPLE II with cassette recorder, or a PET (8K) 

Description: An introduction to T.A. - a system for understanding 

human behaviour. Chapters include: You As A Person, Stroking, 

Transactions, Are You Listening?, the Balancing Came. This 

interactive learning cassette will help you gain better 

understanding of why you get along with some people and not 

with others and may give you a better understanding of yourself! 

Copies: Hundreds available 

Price: Sugg. Retail: $16.50 

Includes: Tape cassette and informative booklet 

Author: Joy Karp 

Available from: 

Local APPLE or PET dealers or: 

SPEAKEASY SOFTWARE LTD. 

P.O. Box 1220 

Kemptville, Ont, KOC 1J0, Canada 



Name: DOS TEXT EDITOR 

System: APPLE II 

Memory: Cassetts-16K, Applesoft Rom-24K, DOS-32K 

Language: Applesoft II 

Description: EDIT is a program designed to facilitate changes to 

disk and cassette text files. The program has 24 commands to 

manipulate files. Included are: INSERT, DELETE, CHANCE, 

SEARCH, ADD, LIST, TEXT, DISPLAY, PACK, MODE, TAB, CLEAR, 

APPEND, SAVE, CONCAT, and STRING CHANCE. Commands that 

operate on blocks of data such as Range DELETE, LIST, SEARCH, 

and STRING replace are also provided. EDIT may also be used to 

create Disk files. 

Copies: Just released 

Price: $16.95 (Add $5 if desired on diskette) 

Specify if Applesoft ROM 

Includes: Program cassette or diskette, Complete documentation, 
and users manual. 
Author: Robert Stein 
Available From. 

Services Unique, Inc. 

2441 Rolling View Dr. 

Dayton, Ohio 45431 



Name: REAL-I 

System: Commodore PET 

Memory: 8K 

Language: Microsoft BASIC 

Hardware: PET 

Description: REAL-I is a real estate investment analysis program 

which models an investment by computing the cash flow, tax 

advantage, inflation hedge, internal rate of return, and other 

quantities as they change over the years under the effects of 

inflation. It specializes the calculations to the tax position of the 

investor and helps him to judge the relative merits of various real 

estate investments opportunities. 

Copies: Just released 

Price: $29.00 for software on cassette and an operating manual. 

Author: Robert M. Munoz 

Available from: 

APPLICATIONS RESEARCH CO. 

13460 Robleda Rd. 

Los Altos Hills, CA 94022 
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Name: Missile-Anti-Missile 
System: Apple 
Memory: 16K 
Language: Apple II Soft 

Description: Simulated missile attack on 3-D Map of USA 

Copies: 30 

Price: $9.95 + $1.00 postage & handling 

Includes: Cassette with instructions 

Author: T. David Moteles & Neil Lipson 

Available from: 

Progressive Software 

P.O. Box 273 

Plymouth Mtg., PA 19462 

Name: DISK DUMP/RESTORE 
System: Apple II with disk 
Memory: 32K (min) 

Language: Applesoft II and machine language 
Hardware: Apple II, Disk II 

Description: A disk-tape utility to dump and restore all Integer, Ap- 
plesoft II, and Binary programs automatically. The program names, 
Binary program addresses, and all commands necessary to re-load 
the programs from tape and restore them again to disk under their 
original names are stored on tape header file. 
Copies: Just released 
Price: $8.00 

Includes: Cassette and instructions 
Author: Alan G.Hill 
Available from: 

Alan G.Hill 

12092 Deerhorn Dr. 

Cincinnati, Ohio 45240 

Name: NOT ONE 

System: KIM 
Memory: 1K 
Language: Assembly 
Hardware: Bare Kim! 

NOT ONE is an exciting, fast moving game of skill, strategy, and 
change for one to five players (including KIM). The game is designed 
for use with KIM's onboard display and hex pad. 
Besides being an entertainment game, the NOT ONE package was 
designed to introduce some powerful general-purpose output 
manipulation subroutines for the KIM's LED display. These include 
variable-speed, scrolled alpha-numerics! 

The manual also discusses LED segment codes in an effort to in- 
crease the user's knowledge of the display. 
Author: Steven Wexler 
Price: $15.00 

Includes: Source listing, manual, and cassette 
Available from: 

SJW, Inc. 

P.O. Box 438 

Huntingdon Valley, PA. 19006 

The 6502 Program Exch. 

2920Moana 

Reno, NV. 89509 



Name: A Forth System 
System: Apple II 
Memory: 24K or Larger 
Language: 40% ASSEMBLY, 60% Forth 
Hardware: Disk II 

Description: A unique software package for software buffs and 
serious programmers who have gotten tired of programming in in- 
teger basic and machine language. FORTH is an extensable 
language, allowing the programmer to "define" new dictionary en- 
trys that use previous entrys. Most of FORTH is written in FORTH. 
Benchmarks show that FORTH executes 20 times faster than BASIC. 
Included in the package are: 

1 ) Powerful screen editor for system development. 

2) Decompiler - used to generate to some extent a source listing. It 
can be used to list our portions of FORTH itself. 

3) Utility package - dump, disk maintenance etc. does not use ap- 
ple II dos. 

4) Completely documented using a special disk retreival system, in- 
cludes some programming examples. Editor, decompiler is available 
on source. 

Copies: Just Released 

Price: $39.95 + tax for California residents 

Includes: One mini diskette + manual 

Author: John T. Draper 

Available from: 

Captain Software 

PO Box 575 

San Francisco, CA 94101 

Name: Function Graphs and Transformations 
System: Apple II 

Memory: 16K minimum if Applesoft is in ROM, otherwise 32K 
minimum 

Language: Applesoft (floating point Basic) 
Hardware: No special hardware 

Description: This program uses the Apple 1 1 high resolution graphics 
capabilities to draw detailed graphs of mathematical functions 
which the user defines in Basic syntax. The graphs appear in a large 
rectangle whose edges are X and Y scales (with values labeled by up 
to 6 digits). Graphs can be superimposed, erased, drawn as dashed 
(rather than solid) curves, and transformed. The transformations 
available are reflection about an axis, stretching or compressing 
(change of scale), and sliding (translation). The user can alternate 
between the graphic display and a text display which lists the 
available commands and the more recent interactions between user 
and program. Expected users are engineers, mathmaticians, and 
researchers in the natural and social sciences; in addition, teachers 
and students can use the program to approach topics in (for exam- 
ple) algebra, trigonometry, and analytic geometry in a visual, in- 
tuitive, and experimental way which complements the traditional, 
primarily symbolic orientation. 
Copies: Just released 
Price: $14.95 (Cat. No: AH E01 23) 
Includes: cassette tape, 12-page instruction booklet 
Author: Don Stone 
Available from: many computer stores or 

Powersoft, Inc. 

P.O. Box 157 

Pitman, NJ 08071 

(609) 589-5500 
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Name: 6502 VDR 

Systems: Any 6502 with room available at $200 or $DD00 

Memory: ViK 

Language: 6502 machine code 

Hardware: Memory-mapped video board such as Polymorphic 

Systems VTI, Solid State Music VB-1 B, Etc. 

Description: Organizes memory-mapped display for teletype-like 

use including automatic scrolling, line wrap-around, clear screen 

commands, etc. 

Copies: 30 

Price: $9.50 plus $1 shipping 

Includes: Operating Manual, detailed configuration information, 

and complete commented source listing. 

Order: Package includes KIM compatable tape cassette with both 

$200 and $DD00 versions included. Charge cards, phone and mail 

order accepted. 

Available from: 

Forethought Products 

97070 Dukhobar#D 

Eugene, Oregon 97402 

Name: CHEQUE-CHECK™ 

System: PET 

Memory: 8K 

Language: BASIC, with machine language subroutine 

Hardware: PET 2001-8 (or 2001-16/32 on special order) 

Description: CHEQUE-CHECK reduces the probability of error in 
reconciling bank statement and checkbook, even for those ex- 
perienced in the art. More important it greatly reduces the time 
required to find and correct an error when one does occur, because 
it "remembers" individual entries for later review and modification 
if necessary. Designed and tested for ease of use, CHEQUE-CHECK 
is suitable for novice or expert, and requires no tape files or 
knowledge of programming. Reviewed in May 1979 issue of Robert 
Purser's Reference List of Computer Cassettes. 
Copies: 60 sold in first three months. 
Price: $7.95 (quantity discount available) 

Includes: Cassette in Norelco style box, Description and operating 
instructions, zip-lock protective package. 
Designer: Roy Busdiecker 
Available from: Better computer stores or directly from 

Micro Software Systems 

P.O. Box 1442 

Woodbridge, VA 22193 



Name: Disk Catalog Program 
System: Apple II 
Memory: 32 K minimum 

Language: Integer Basic and Machine Language 
Hardware: Apple II, DISK II 

Description: This program consists of two modules. The first, 
DCATPRO, is a general purpose data base catalog program for 
books, records, tapes, programs on diskette, etc. Features include 40 
col. records, 5 fields (2 with adjustable length), and super fast 
machine language sort. The second, GENCPINP, automatically 
processes any set of Apple II diskettes and generates a data base for 
DCATPRO by reading the D$CATALOG information for each disket- 
tes. Then you know what you have and where it is, all without 
having to type in a lot of data. 
Copies: Over 100 sold 
Price: $10.00 postpaid 

Includes: Programs on cassette and 5 pages of documentation 
Arthur: George W.Lee 
Available from: 

George W. Lee 

18003 S.Christina Ave. 

Cerritos, California 90701 



Name: Generalized File Management 
System: APPLE II 
Memory: 16K 
Language: Integer Basic 
Hardware: APPLE II, DISK II 

Description: This package allows you to create, update, and print 
disk files. The names of fields and files, number of fields, individual 
field lengths, and file size is user defined. You can decide what 
headings you want to see (if any) when you print or display and 
record or the entire file. You can use this package to create such 
files as: Parts lists, phonenos., List of birthdates, name and address, 
and whatever... 
Copies: Just released 
Price: $16.50 

Includes: Diskette that contains two programs, some sample file 
useages (birthdates, parts list), and a user manual. 
Author: LeeStubbs 
Available from: 
Les Stubbs 
23725 Oakheath PI. Harbor City, Ca 90710 

Name: WEAVER 

System: Apple II 

Memory: 32K 

Language: Integer Basic 

Hardware: Disk II 

Description: WEAVER simulates as multi-harness loom with control 

of warping, hook-up and treadling. Weaving drafts of 40 threads of 

warp and 40 threads of weft are drawn in 15 colors for patterns 

requiring up to 24 harnesses. Weaving patterns are saved and called 

by name from disk storage. The user-interface is designed for easy 

and efficient use by a weaver. Nine pages of documentation include 

a glossary of commands which defines the functions of the program 

and a sample draft with descriptive data entry. 

Copies: New program. 

Price: $15.00 on cassette tape, $20.00 on diskette with five sample 

drafts. 

Author: Bruce Bohannan 

Available from: 

Bruce Bohannan 

2212 Pine Street 

Boulder, CO 80302 

Name: Address and Perpetual Calendar 
System: APPLE II 
Memory: 32K 
Language: Applesoft II 
Hardware: APPLE II w/Disk II 

Description: This program maintains your master address file on 
disk. User follows a master menu to add or change names, look for 
specific names or review entire file (or part) name by name. All out- 
puts are formatted. Look and change records with a search function 
i.e., If you do not remember how to spell a name then enter the 
number of letters you do know and the program will walk you 
through all names beginning with what you entered until you find 
the one you want. A birthday function is included that will search 
your entire file and list all names, birthday and age for any given 
month. A special feature loads up a Perpetual Calendar program 
that will display any month (formatted) between the years 1704 and 
2099 and highlights any particular day. Return to address program is 
optional. 

Copies: Just released. 
Price: 15.00 ppd 
Includes: Disk and instructions 
Author: Edward S. Kleitches 
Available from: 

Edward S. Kleitches 

7207 Camino Grove 

San Antonio, Texas 78227 
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Name: DB/65 

System: ANY 28 or 40 PIN 6500 

Hardware: Power supply and terminal 

Power Requirements: 5V at 3 AMPS. t12, -12 at 20 Milliamps if 

RS232C terminal used. 

Description: DB/65 is a complete hardware/software debug 

system for any 6500 system. Command structure is identical to that 

of the ROCKWELL SYSTEM 65. Hardware breakpoint, scope syne, 

eight software breakpoints and any number of real-time 

breakpoints (via the BRK instruction) are supported. Object code 

and symbol table may be loaded from either serial or parallel port 

(compatable with SYSTEM 65 printer port). Symbolic disassembly 

is supported so programmer is always debugging at assembler 

level. In circuit emulation and 2K RAM are standard. RAM may be 

added for total of 8K if desired. User NMI and IRQ vectors and 

supported. System monitor resides in address range $7000 to $7FFF 

so user program may occupy high memory. 2MHZ option 

available. 

Copies sold: 15 

Price: $1450 

Includes: Manuals, In circuit emulation, 2K RAM shipping 

Developed by: COMPAS MICROSYSTEMS 

Available from: 

COMPAS MICROSYSTEMS 

224 SE 16th Street 

P.O. Box 687 

Ames, IA 50010 

515/232-8181 



Name: Home Budget System 

System: OSI (Easily modified for PET or Apple II) 

Memory: 4K 

Language: MICROSOFT BASIC 

Hardware: OSI Challenger IIP 

Description: A computerization of my own proven home budget 
system evolved over a 7 year period. Consists of interactive 
programs to add/update accounts, post budget and expenses and 
analyze status of accounts on detailed and summary basis. 4K 
RAM handles up to 15 accounts stored on cassette tape. Data 
stored for each account includes account number, description, 
budget amount, current month expenses, and year-to-date 
expenses. Requires posting only once per month. Helps balance 
checkbook, too! 
Copies: Just released 
Price: $15 

Includes: Cassette (300 baud Kansas City std), user manual with 
complete BASIC listings, operating instructions, and sample runs. 
Author: Bruce Grayson 
Available from: 

B. W. Crayson 

905 Woodridge Drive 

Savannah, Georgia 31410 



Name: BASIC Modification Package 

System: KIM expanded to run Microsoft-9 digit KIM BASIC 
Memory: Locations DD to E0 and 200 to 2E4 used in addition to 
locations in unmodified program. 
Language: Machine 

Hardware: None additional. Optionally supports a terminal with x- 
on/x-off feature. 

Description: Enhancements and modifications to Microsoft 9-digit 
KIM BASIC (sold by Johnson Computer). Machine Language patches 
to original program. BASIC and mods can be loaded with only one 
tape. Jim Butterfield's Hypertape (and other routines) are relocated 
to low memory on initialization. SAVE and LOAD at Hypertape 
speeds. SAVE and LOAD messages improved. SAVE returns to 
BASIC. Programs with higher line numbers can be appended. This 
means BASIC subroutines, DATA statements and utility programs 
[RENUMBER) can be added after program development. Interrupt 
running programs and listing reliably with ST button. GET (one 
character or digit) command noted and fixed. Terminals with x-on/x- 
off feature will load paper or cassetts tapes perfectly. BASIC 
programs saved on cassette tapes with different initialization con- 
ditions can be used interchangably. A 1/10 sec counter can be star- 
ted, stopped and read under program control. Time and control ex- 
ternal events with this Jeffrey counter (named after former student 
and pun intended). 
Copies: > 10 

Price: $15 check or money order. 

Includes: Object code listing, instructions, examples, miscellaneous 
information and help from the author (by correspondence). 
Author: Harvey B. Herman 
Available from: 

Harvey B. Herman 

2512 Berkley Place 

Greensboro NC 27403 



Name: PET Library 

System: PET 

Memory: 8K 

Language: Basic, some Assembler 

Hardware: No Special 

Description: A variety of PET programs including games, 

educational, music, astronomy, financial, and many others. 

Copies: 100+ 

Price $2.50 first program $1.50 each additional. 

I nc I udes: Cassette & Postage 

Order Info.: Send Business envelope and postage for complete list 

of programs available. 

Author: Russell Grokett 

Available from: 

PET Library 

401 Monument Rd. #177 

Jacksonville, FLA 32211 

Name: LIFE for the KIM-1 

System: KIM-1 with an XITEX VIDEO BOARD. 

Memory: 2K ($2O0O-$2800 plus 30 bytes on page zero.) 

Language: Assembler 

Description: This program will play Conway's game of LIFE. The 

program will plant one living cell in mid-screen, and then ask for 

coordinates, measured from the center, for other living cells. A 

generation takes about 1/6 second for every birth and death. The 

program may be patched to accommodate other video boards. 

Copies: Just released. 

Price: $2.00 for description and listing. 

$5.00 for object tape on cassette in HYPERTAPE format. 
Author: Theodore E. Bridge 
Available from: 

Theodore E. Bridge 

54 Williamsburg Dr. 

Springfield, MA 01108 
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6502 INFORMATION 
RESOURCES UPDATED 



A list of regular publications which have material of 
interest to 6502 users. 



William R. Dial 
438 Roslyn Ave. 
Akron, OH 44320 



Did you ever wonder just what magazines were the 
richest sources of information on the 6502 micro- 
processor, 6502-based microcomputers, accessory 
hardware and software? For several years this writer 
has been assembling a bibliography 6502 references re- 
lated to hobby computers and small business systems. 
The accompanying list of magazines has been com- 



piled from this bibliography. At the top of the list are 
several publications which specialize in 6502-related 
subjects. An attempt has been made to give up-to-date 
addresses and subscription rates for the magazines 
cited. Subscription rates are for U.S. Other countries 
normally are higher. 



MICRO 

$15.00 per year 

MICRO 

P.O. Box 6502 

Chelmsford, MA 01824 

6502 USER NOTES 

$13.00 per 6 issues 
Eric Rehnke 
P.O. Box 33093 
Royalton, OH 44133 

OHIO SCIENTIFIC - SMALL SYSTEMS JOURNAL 

$6.00 per year (6 issues) 
Ohio Scientific 
1333S.ChillicotheRd. 
Aurora, OH 44202 

PET GAZETTE 

Free bi-monthly (Contributions Accepted) 
Microcomputer Resource Center 
1929 Northport Drive, Room 6 
Madison, Wl 53704 

Robert Purser's REFERENCE LIST OF COMPUTER 
CASSETTES 

Nov. 1978 $2.00/Feb 1979 $4.00 
Robert Purser 
P.O. Box 466 
El Dorado, CA 95623 

THE PAPER (PET) 

$15.00 peryear(10 issues) 
The PAPER 
P.O. Box 43 
Audubon, PA 19407 

THE CIDER PRESS (APPLE) 
Scot Kamins 
Box 4816 
San Francisco, CA 94101 



STEMS FROM APPLE 

Ken Hoggatt 

APPLE PORTLAND PROGRAM LIBRARY 

EXCHANGE 
9195 SW El Rose Court 
Tigard, OR 97223 

APPLE SEED 

Bill Hyde 

The Computer Shop 

681 2 San Pedro 

San Antonio, TX 78216 

KILOBAUD/MICROCOMPUTING 

$18.00 per year 
Kilobaud Magazine 
Peterborough, NH 03458 

BYTE 

$18.00 per year 
Byte Publications, Inc. 
70 Main St. 
Peterborough, NH 03458 

DR. DOBB'S JOURNAL 

$1 5.00 per year (10 issues) 
People's Computer Co. 
BoxE 

1263 El Cam i no Real 
Menlo Park, CA 94025 

ON-LINE 

$3.75 per year (18 issues) 
D. H. Beetle 
24695 Santa Cruz Hwy 
Los Gatos, CA 95030 

RECREATIONAL COMPUTING 

(formerly PEOPLE'S COMPUTERS) 
$1 0.00 per year (6 issues) 

People's Computer Co. 

1263 El Camino Real 

BoxE 

Menlo Park, CA 94025 
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INTERFACE AGE 

$18.00 per year 
McPheters, Wolfe & Jones 
16704 Marquardt Ave. 
Cerritos, CA 90701 

POPULAR ELECTRONICS 

$12.00 per year 
Popular Electronics 
One Park Ave. 
New York, NY 10016 

PERSONAL COMPUTING 

$14.00 per year 
Benwill Publishing Corp. 
1050 Commonwealth Ave. 
Boston, MA 02215 

73 MAGAZINE 

$15.00 per year 
73, Inc. 
Peterborough, NH 

CREATIVE COMPUTING 

$15.00 per year 
Creative Computing 
P.O. Box 789-M 
Morristown, NJ 07960 

SSSC INTERFACE 

Southern California Computer Soc. 

1702 Ashland 

Santa Monica, CA 90405 

EDN (Electronic Design News) 
$25.00 per year 

Cahners Publishing Co. 

270 St. Paul St. 

Denver, CO 80206 

RADIO ELECTRONICS 

$8.75 per year 

Gernsback Publications, Inc. 
200 Park Ave., South 
New York, NY 10003 

QST 

$12.00 per year 
American Radio Relay League 
225 Main St. 
Newington,CT06111 

IEEE Computer 

IEEE 

345 E. 47th St. 

New York, NY 10017 



POLYPHONY 

$4.00 per year 

PAIA Electronics, Inc. 
1020 W.Wilshire Blvd. 
Oklahoma City, OK 731 16 



RAINBOW (APPLE) 

$15.00 per year 

Rick Simpson and Terry Landereau, Editors 
P.O. Box 43 
Audubon, PA I9407 

PET USER NOTES 

$5.00 per year (6 or more issues) 
PET User Group 
P.O. Box 371 
Montgomeryville, PA 18936 

CONTACT — User Group Newsletter 
Gratis to Apple owners 

10260 Bandley Drive 

Cupertino, CA 95014 

(408)996-1010 

SOUTHEASTERN SOFTWARE NEWSLETTER 

(APPLE) 

10 issues $10.00 

George McClelland 

Southeastern Software 

7270 Culpepper Drive 

New Orleans, LA 70126 



COMPUTER MUSIC JOURNAL 

$14.00 per year (6 issues) 
People's Computer Co. 
BoxE 

1010 Doyle St. 
Menlo Park, C A 94025 

POPULAR COMPUTING 

$18.00 per year 
Popular Computing 
Box 272 
Calabasas.CA 91302 

MINI-MICROSYSTEMS 

$18.00 per year 

Modern Data Service 
5 Kane Industrial Drive 
Hudson, MA 01749 

DIGITAL DESIGN 

$20.00 per year 
Benwill Publishing Corp. 
1050 Commonwealth Ave. 
Boston, MA 02215 

ELECTRONIC DESIGN 

(26 issues per year) 
Hayden Publishing Co., Inc. 
50 Essex St. 
Rochelle Park, NJ 07662 

CALLA.P.P.L.E. 

$10.00 peryear (includes dues) 
Apple Puget Sound Program Library Exchange 
6708 39th Ave. SW 
Seattle, WA 98136 
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6502 BIBLIOGRAPHY 
PART VI 

William R. Dial 
438 Roslyn Ave. 
Akron, OH 44320 

361. Bridge, Theodore E. "High Speed Cassette I/O for the KIM-1" , DDJ 3. Issue 6 No 26, Pg 24-25, 

(June/July, 1978). Will load or dump at 12 times the speed of KIM-1. Supplements the 
MICRO-ADE Editor-Assembler. 

362. Baker, Robert "KIMER: A KIM-1 Timer", Byte 2, No 7 Pg 12, (July, 1978). The program converts 

the KIM-1 into a 24-hr digital clock. 

363. Conley, David M. "Roulette on Your PET with Bells and Whistles", Personal Computing 2. No 7 Pg 22- 

24 (July, 1978). How to add extras in a program for added interest. 

364. KIM-1/6502 User Notes, Issue 11, (May, 1978) 

Lewart, Cass R. "An LED Provides Visual Indication of Tape Input". An LED allows you to see 

that the tape recorder is feeding proper signals to KIM. 
Rehnke, E. "Hardware Comparison". The editor compares KIMSI vs. K1M-4 as expansion for KIM . 
Rehnke, E. "Software Comparison". The editor compares the MOS Technology Assembler/Editor 

from ARESCO versus the MICRO-ADE Assembler/Disassembler/Editor from Peter Jennings, 

Toronto. 
Edwards, Lew "Skeet Shoot, with Sound". Butterfield' s "Skeet Shoot" modified with the Kush- 

nier's phaser sound routine, for KIM. 
DeJong, Marvin "Digital Cardiotachtometer" . KIM counts heartbeats per minute and displays 

count while measuring next pulse period. 
Rehnke, E. "Book review: 'Programming a Microcomputer: 6502"'. Foster Caxton's recent book 

is highly recommended. 
Coppola, Vince " Loan Program in FOCAL". FOCAL-65 is used to figure interest on a loan. 
Flacco, Roy "Joystick Interface". A joystick, some hardware, are used to put the Lunar 

Lander (First Book of KIM) on the face of a Scope. 
Kurtz, Bob "Morse Code Reader Program". Use KIM in the hamshack. 
Zuber, Jim "Interfacing the SWTPC PR-40 Printer to KIM-1". An easy way to use this low cost 

printer. 
Nelis, Jody "Revision to Battleship Game". Modification to correct a small defect in the 

original program. 

365. people's Computers 2 No 1 (July/Aug, 1978). 

Cole, Phyllis "SPOT". Several notes and tips of interest to PET owners. 

Cole, Phyllis "Tape Talk". Notes on problems associated with tape I/O on the PET. 

Gash, Philip "PLOT". Program plots any single-valued function y(x) on a grid. 

Julin, Randall "Video Mixer". A circuit to mix the three video signals put out by the 

PET's IEEE 488-bus. 
Bueck/ Jenkins "PETting a DIABLO". How to make PET write using a Diablo daisy wheel printer. 

366. Harr, Robt. Jr. and Poss, Gary F. "TV Pattern Generator", Interface Age 3. Issue 8 Pg 80-82; 160, 

(Aug, 1978). Pattern generator in graphics for the Apple II monitor. 

367. personal Computing 2 No 8 (Aug, 1978). 

Maloof, Darryl M. "PET Strings" (letter to Editor). Note on changing a character string 

to numeric values and vice-versa. 
Connors, Bob "PET Strings" (letter to Editor). More on changing character strings to 

numeric values. 
Bueck/ Jenkins "Talking PET" (letter to the Editor). Notes on the interfacing of a Diablo 

daisy wheel printer with PET through the PET ADA device. 

368. Lasher, Dana "The Kalculating KIM-1", 73 Magazine, No 215 Pg 100-104 (Aug, 1978) . Calculator 

versatility for any KIM is provided by interfacing a calculator chip and a scanning routine 
with KIM. 

369. OSI-Small Systems Journal £ No 2 (Mar/Apr, 1978). 

Anon. "The 542 Polled Keyboard Interface". Polled keyboards have many advantages over 

standard ASCII keyboards. • 
Anon. "Basic and Machine Code Interfaces". This is the first in a series of articles on 

BASIC and machine code. 
Anon. "Using the Model 22 0KIDATA Printer". A quick and dirty way to use those special 

font and scroll commands of the Model 22 OKIDATA Printer. 
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370. Dr. Dobbs Journal 3. Issue 7 No 27 (Aug, 1978). 

Moser, Carl "Fast Cassette Interface for the 6502". Record and load at 1600 baud. 

Meyer, Bennett "Yet Another 6502 Disassembler Fix". Changes to correct a number of errors 

in the five digit codes used for deciphering the instructions in the BASIC language 

disassembler published earlier in DDJ 3 No 1 . 
Anon. "Apple Users Can Access Dow Jones Information Service". With a telephone link-up, 

Apple II users can dial Dow Jones Information Service. 

371. Kilobaud Issue 21 (Sept, 1978). 

Wells, Ralph "Trouble Shooters' Corner". Another chapter in the saga of the compatibility 
of the Apple II with a VIA/PIA. See EDN May 20,1978; MICRO Issue 5, Pg 18, June/July, 
1978. 

Tenny, Ralph "Troubleshooters' Guide". Useful suggestions for those tackling repair and 
interfacing problems. 

Young, George "Do-It-All Expansion Board for KIM". How to make an expansion board, expan- 
sion power supply, new enclosure, etc., for your KIM-1. 

Ketchum, Don "KIM Organ". Play tunes directly from the KIM keyboard. 

Grina, James "Super Cheap 2708 Programmer". An easy-to-build PROM programmer driven by 
the KIM-1. 

372. Conway, John "Glitches Can Turn Your Simple Interface Task into a Nightmare". Difficulties 

in using an Apple II with a PIA in an I/O interface, apparently caused by a clock signal 
arriving a little early. 

373- Notley, M. Garth "Plugging the KIM-2 Gap". Byte 3 No 9 Pg 123 (Sept, 1978). How to map the 
KIM-1 address range of 0400 to 13FF into a KIM-2 address range of 1000 to 1FFF. 

374. Turner, Bill and Warren, Carl "How to Load Floppy ROM No 5", Interface Age 3 No 9 Pg 60-61 

(Sept, 1978). Side No 1 is in Apple II format at 1200 baud, "The Automated Dress Pattern". 

375. Smith, Wm. V.R. Ill "The Automated Dress Pattern for the Apple II". Interface Age 3 No 9 

Pg 76-81 (Sept, 1978). A McCalls pattern is the basis for the program and accompanying 
Floppy ROM. 

376. MICRO Issue 6 (Aug/Sept, 1978). 

Husbands, Charles R. "Design of a PET/TTY Interface". Describes the hardware interface and 

software to use the ASR 33 Teletype as a printing facility for the PET. 
Faraday, Michael "Shaping Up Your Apple". Information on using Apple II's High Resolution 

Graphics. 
Eliason, Andrew H. "Apple II Starwars Theme". Disassembler listing of theme from Star Wars. 
Bishop, Robert J. "Apple PI". How to calculate PI to 1000 places on your Apple II. 
McCann, Michael J. "A Simple 6502 Assembler for the PET". Learn to use Machine language 

with this assembler. 
Rowe, Mike "The Micro Software Catalog: III". Software listing for 6502 systems. 
Gaspar, Albert "A Debugging Aid for the KIM-1". A program designed to assist the user in 

debugging and manipulating programs. 
DeJong, Marvin L. "6502 Interfacing for Beginners: Address Decoding II". Good tutorial 

article. 
Suitor, Richard F. "Brown and White and Colored All Over". Discussion of the colors in the 

Apple and their relation to each other and the color numbers. 
Witt, James R. "Programming a Micro-Computer: 6502 by Caxton Foster". More accolades for 

this fine book. 
Merritt, Cal E. "PET Composite Video Output". How to get video output for additional 

monitors. 
Quosig, Karl E. "Power from the PET". How to tap the unregulated 8v and regulate to 5v. 
Suitor, Richard F. "Apple Integer BASIC Subroutine Pack and Load". Loading assembly 

language programs with a BASIC program. 
Creighton, Gary A. "A Partial List of PET Scratch Pad Memory". Tabulation of a number of 

important addresses. 

377. Corbett, C. "A Mighty MICROMITE" . Personal Computer World I No 4 Pg 12 (Aug, 1978) . Descriptive 

article on the KIM-1 for the European and British readers. 

378. Coll, John and Sweeten, Charles "Colour is an Apple II". Personal Computing World 1 No 4 Pg 

50-55 (Aug, 1978). Description of the Apple II. 

379. North, Steve "PET Cassettes from Peninsula School". Creative Computing 1 No 5 Pg 68 (Sept/Oct, 

1978). A number of programs written in PILOT, a language designed for CAI dialog applica- 
tions. This requires a program to interpret PILOT in Basic. 
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3 8o Gordon, H. T. "Use of NOPCODES as Executable Labels", Dr Dobb's Journal 3, Issue 8 No 28 
pg 29 (Sept., 1978). Discusses the use of nopcodes in 650X devices. Classifies 
these as monops (6 listed) and binopcodes (5 listed) and trinops (8 listed). 

381. Swank, Joel "A Programmable IC Tester for KIM", DDJ 3 Issue 8 no 28 pg 33 (Sept., 1978) 
With a 6820 PIA, some TkOk buffers and a ZIF 16 pin socket together with a program 
KIM-1 can test IC's. 

382. People's Computers_7_ No 2 (Sept. /Oct., 1978) 

Zimmermann, Mark "Snooping With Your PET". A sophisticated Guide to PEEKing and 

POKEing around in PET. 
Gaines, John "Apple Math". A math program for the Apple II. 
Cole, Phyllis "SPOT" (Tips for PET trainers) - Discussion of the slow documentation 

for the PET. Program for lining up dollars/cents tabulations. PET listing 

conventions. 

383. Conway, John "A Tape-to-Microcomputer-Hardware Interface Requires a Wealth of Micro- 

techniques". EDN_23_No 6 pg 101-110 (March 20, 1978). EDN project Indecomp tape 
interface hardware. Also the first hint of problems in interfacing Apple II with 
a PIA. 

384. Hemenway, Jack E. "Add Floppies to Your Microcomputer to Form a Real Microcomputer 

System". EDN_23_No 12 pg 98-107 (June 20, 1978) re: May 20 EDN problems with tape 
hardware interfaces for Apple II. Also, EDN 23 discusses disk interface hardware. 
Final test to come. 

385. Kilobaud Issue 23 (Oct., 1978) 

Trageser, Jim "Budget System with KIM". How to expand your KIM system with ASCII 

keyboard, TVT-6 and associated software. 
Ngai, Philip "Build a One-Chip Single Stepper". A debugging aid for home-brewed 6502 

systems. 
Kurtz, Robert L. "World of the Brass Pounders: Receive Morse Code the Easy Way". 

This Morse code reader is a good example of how the microcomputer can serve the 

radio amateur. Uses KIM-1. 
Borland, D. "Financier/Mortgage with Prepayment". A pair of PET programs from 

Kilobaud's Instant Software line. 
Beymer, Easton "Universal Number Converter". A program in PET BASIC for converting 

from one number base to another. Not only hex, decimal, octal and binary, but 

others. 
Grossman, , Rick "Do It with a KIMSI" . Use S-100 boards with the KIM. An evaluation. 
Bishop, Robert J. "The Remarkable Apple II". A description and evaluation of the 

Apple II by a veteran 6502 programmer. 

386. Palenik, Les "Formatting Dollars and Cents". Byte 3 No 10 pg 68 (Oct., 1978) This program 

for the PET rounds the monetary amount to the nearest cent and lines up the decimal 
points. 

387. Bishop, Robert J. "Maze" Byte 3 No 10 pg 1 36-1 38 (Oct., 1978). This novelty program 

generates and displays a different maze about once a minute. 

388. 6502 User Notes 12 (Nov., 1978) 

Flacco, Roy "Scope Lunar Lander — final installment". The last part of a series in- 
corporating graphics into the KIM-1 Lunar lander program. 
Allen, Michael "TVT6 Etch-A-Sketch" . A sketch routine for the KIM/TVT6 said to 

overcome the limitations imposed by a snowy screen during program execution. 
Hooper, Philip K. "TVT6" - Some cheap, easy and helpful TVT6 hardware modifications. 
Clem, D. "Expansion Decoding". One possible configuration of expansion decoding for 

KIM is said to be designed with TVT6 in mind. 
Lewart, Cass and Lewart, Dan "TVT6 Remarks". Notes on improving the operation of the 
KIM/TVT6 system. 
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6502 User Notes 12 (Nov., 1978) con't. 

Kushnier, Ronald "Notes on the TVT6". Information on memory expansion, the TVT6/KIM 
as a terminal, assembly of the TVT 6, the PVI-1K kit, KIM modification and use 
of the TVT6 with the Radio Shack keyboard. 

Brachman, Michael "Suggestions for Running the TVT6". Includes a slight software 

mod to display pages 02,03,00 consecutively filling the whole screen (24 line x 

64 character display. 
Anon, "FOCAL" Staff evaluation of FOCAL for the 6502. 
Latham, Don J. "Letter to the Editor". Comments on tape storage problems, KIMSI, 

XITEX, TVT6, Microsoft Basic, FCL-65, etc. 
Rehnke, Eric "The Cheap Video Cookbook" - a book review. Very favorable review of 

Don Lancaster's latest book. 
Martin, Timothy "KIM Interval Timers". Useful precautions in using the KIM interval 

timers are given. 

389. MICRO, No 7 (Oct. /Nov., 1978) 

Auricchio, Rick "Breaker: An Apple II Debugging Aid". BREAKER is a software routine 

to manage Breakpoints, correctly resuming the user program after hitting a breakpoint 

Watson, Allen III "M0S 16K RAM for the Apple II. Speed codes used by 16K Dynamic RAM 
manufacturers. The author advises against using 300 ns access time chips. 

Creighton, Gary A. "PET Update". Discussion of the RND function, USR, Machine 
Language Storing in Basic, Save and Load, etc. 

De Jong, Marvin L. "6502 Interfacing for Beginners; The Control Signals". The latest 
article in this series discusses the theororetical basis and progresses to hard- 
ware and a program for experimenting with control signals. 

Shryock, William H. , Jr. "Improved Star Battle Sound Effects". Further improvements 
based on the original article by Andrew H. Eliason in Issue no 6 of MICRO. 

Green, J.S. "650X Opcode Sequence Matcher". A program that correlates and points 
to parallel sequences of opcodes, comparing the two sets and displaying the 
differences. 

McCann, Michael J. "A Memory Test Program for the PET". Program is written in 
Commodore BASIC and occupies the lowest 4K of memory. 

Rowe, Mike (Micro Staff) "The MICRO Software Catalog: IV" Ten more programs are 
reviewed in this continuing series. 

Schwartz, Marc "Apple Calls and Hex-Decimal Conversion". How to access machine 

language routines by Calls and how to use Apple in helping make the hex-decimal 
conversion. 

Dial, William R. "6502 Bibliography: Part VI". The 6502 literature continues to expand. 

Dial, William R. "6502 Information Resources". A list of the magazines used in com- 
piling the 6502 Bibliography and their subscription prices. 

Powlette, Joseph L. and Wright, Charles T. "KIM-1 a Digital Voltmeter". Hardware and 
Software to convert the KIM-1 to use as a digital readout voltmeter. 

Miller, Fred "Cassette Tape Controller". Control two tape units with your KIM. 

Eliason, Andrew H. "Apple II High Resolution Graphics Memory Organization". A useful 
contribution toward better understanding of the Apple II HIRES Graphics. 

DeJong, Marvin L. , Riverside Electronics Design's KEM and MVM-1024: A User's Evalua- 
tion". A generally favorable evaluation of the KEM expansion board for KIM 
and the keyboard/video monitor board. 

Sullivan, Chris "A Digital Clock Program for the SYM-1". This 24-hour clock program 
provides a good way for the new SYM owner to become familiar with the monitor 
subroutines. 

Herman, Harvey B. "Peeking at PET's Basic". The PEEK function is used to look at the 
BASIC itself. 

Tepperman, Barry "Kimbase". A program to convert from almost any number system to 
another. Contains many useful subroutines for multiplying, dividing and other 
uses. 

390. Anon, "Tone Routine for Apple II". Southeastern Software Newsletter Issue No 3 pg 6 

(Oct., 1978) The tone routine used with Apple Integer Basic can be used with Applesoft 
but must be relocated. 

391. Haller, George "Storing and Recoving Data in Applesoft II". Southeastern Software News- 
letter Issue No 2 pg 4 (Sept, 1978) Program for storing and recoving data in 
Applesoft II. 
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392. Call - APPLE 1 No 6 

Williams, Don "Key Klicker Routine". A machine language program to provide a click each 

time your silent keyboard is punched 
Anon, "Routine to Find Page Length". A routine to fill a page with repetitive material 

or to determine the length of a screen page of print statements. 
Anon, "Printer Driver Fixes". A short program to prevent problems when using the 

Apple with a printer with more than 40 columns. 
Anon, "Apple II Mini-Assembler". Discussion of the Apple II mini-assembler. 
Aldrich, Darrell "Use of Color Mask Byte in HIRES". Brief description of this im- 
portant aspect of Apple HIRES. 
Anon, "Memory Map-Apple II with Applesoft Basic Loaded". Convenient tabulation of 

memory positions. 
Anon, "List of Handy Calls". Sixteen calls are listed for the Apple II. 
Apple Computer Staff "System Monitor". Discussion of how to get the most out of your 

Apple Monitor. 
Huelsdonk, Bob "Memory Test". A test for Apple memory by loading each location with 

55, testing, loading with AA and testing. Offending address will be shown. 



193. Call - APPLE J_ No 7 (August, 1978) 

Golding, Val J. "A Disk Utility Program". A program to record a group of programs on 
tape from a disk. 

Backman, J. A. "Poor Man's HEX-DECIMAL-HEX Converter", with this table and a scratch- 
pad, conversions are a snap. 

Thyng, Mike "Basic File Handling". Discussion of the actual commands necessary to get 
data to and from diskettes using the Apple with a PERSCI disk drive. 

Apple Computer Staff "System Monitor". Cassette I/O's, Memory Move and Verify, De- 
bugging Aids, Single Stepping, Tracing, using the Apple II monitor. 

Anon "Applesoft Zero Page Usage". Explanation of the functions residing in page zero 
of Apple II. 

Huelsdonk, Bob "Routine to Print Free Bytes". Routine for Apple II with less than 32K 
memory . 

Huelsdonk, Bob "A Patch for Double Loops". Discussion of precautions to use with 
with double loops in Applesoft on the APPLE II. 

Apple Computer Staff "Loading Machine Language as Part of a Basic Program". Reprinted 
from Contact No 1, May 1978. Provides a way to include a machine language pro- 
gram within a Basic Program. 

!94. Call - APPLE J_ No 8 (Sept., 1978) 

Aldrich, Ron "Convert". Program Loads Integer Basic Program from Disk, saves to a 

text file on disk, then executes that file in Applesoft II. 
Thyng, Mike "Arrays". A description of the use of arrays with the Apple. 
Chapman, Dan "Video Display Organization". A program to demonstrate the Video 

Display organization. 
Anon "Routine to Save an Array", (reprinted from Apple Stems Vol 1 No 2 July, 1978) 

A routine to save both integer or floating point real numbers in an Applesoft 

II array. 
Lam, S.H. "Monitor Commands from Basic* This routine allows execution of Apple Monitor 

commands from Basic with return to Basic. 
Williams, Don "Linkage Routines for the Apple II Integer Basic Floating Point Package". 

A discussion of the Apple II ROM routines. 
Hill, Alan G. "Return to TEXT from Graphics". A handy routine which permits the use 

of Control Y to return to Text from Apple Graphics. 
Anon "Integral Data IP 125-225 Driver". A slight modification of the Apple Red Book 

teletype routine for use with the Integral Data printer. 
Huelsdonk, Bob "Printer Driver Fixes". Protocol to use a printer with more than 40 

columns with the Apple. 



95. Call - APPLE J_ No 9 (Oct., 1978) 

Cook, John B. "Applesoft Tone Routines". Relocation of the tone routines is necessary 

for use with Applesoft II on the Apple. 
Scott, Michael M. "A Brief History of Apple". An interesting account by the President of 
Apple Computer Co. 
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Call - APPLE J_ No 9 (Oct., 1978) cont. 

Anon, "Some Basic Entry Points". Various Call and JSR functions for Apple basic. 
Huelsdonk, Bob "Sample File Handler". A program that demonstrates and will establish 

files for data handling, using the DOS on Apple. 
Golding, Val and Williams, Don "Apple II Integer Basic: Interpretation of Memory". 

Tabular listing of pointers and tokens for Apple II Integer Basic. 
Golding, Val "Applesoft II Tokens". Memory tabulation for tokens and pointers 

of Applesoft II Basic for the Apple. 

396. PET Gazette J_ No 5 (Aug. /Sept., 1978) 

Anon, "PET Standards". Standards are suggested for writing PET programs, graphics, 

music listings, etc. 
Louder, Mike "Dynamic Keyboard". Discussion of methods to change lines in Basic 

programs while the PET is running. 
Richter, Mike "Data Files". Recommended procedures in preparing tapes for exchange. 
Anon, "PET Memory Map". Map reprinted from the PET Paper. 
Staebell, Jon "PET Hints". Miscellaneous hints for PET owners. 
Modeen, Roger L. "Easy Auto Answer/Originate Modem". Modem for the PET. 
Clark, Ken "Proposed Temporary Local Standard for Low Speed Data Exchange by Modem". 

Protocals for data exchange. 
Cumberton, Dennis "File Manager". A program for reliable data reading and writing 

with the PET. 
Bendoritis, Bill "Renumber". A renumbering program for the PET. 
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397. Babcock, Robert E. "1C Tester Using the KIM-1" 

Ham Radio 11 No 11 pg 74-76 (Nov., 1978) 

Test the 7400 series IC's using the KIM-1, a minimum of hardware and tables of parameters tucked away in memory. 

398. Purser, Robert "Software List" 

Robert Purser's Reference List of Computer Cassettes, Edition 3, August, 1978 (P.O. Box 466, El Dorado, CA 95623 
A very complete listing of available Cassette software for the PET and Apple II. 

399. Lilie, Paul A. "Look What Followed Me Home!" 

73 Magazine No 218 pg 142-147 (Nov., 1978) 
A description of the PET. 

400. Creason, Sam "The Micro Maestro!" 

73 Magazine No. 218 pg 150-166 (Nov., 1978) 

Sound generation and waveform control with the 6502. 

401. Akingbehin, Kiumi "LEDIP, A KIM/6502 Test Editor" 

Dr. Dobb's Journal 3 Issue 9 No 29 pg 4-12 (Oct., 1978) 

Here is an expandable program for creating text and source code. 

402. Tepperman, Barry "Comments on KIM Cassette Program" 

Dr. Dobb's Journal 3 Issue 9 No 29 pg 41 (Oct., 1978) 

Points out that the relatively slow speed of the KIM cassette program has led to the publication of several high-speed 
load/dump programs. 

403. Firebaugh, Morris; Johnson, Luther and Stone, William "A Feast of Microcomputers" 

Personal Computing 2 No 11 pg 60-70 (Nov., 1978) 

The Authors evaluated a wide range of microcomputers to pick the best ones for teaching science students. Includes 
several 6502 micros. 

404. Creative Computing 4 No 6 [Nov./Dec, 1978] 

Foote, Gary A. "Apple Speed" 

A comparison of several programs for sorting a group of 1000 words showed several BASIC programs to require 600 
to 650 seconds on the Apple II while usir * the same sort in Sweet-16 required only 158 seconds. The same sort in 
6502 assembler required only 3 seconds. 

Ahl, David "Random Ramblings" 

Commodore plans to make an electronic che.s game based on the 6504 chip of MOS Technology. 

Yob, Gregory "Personal Electronic Transactions" 

A column on the PET with software references, hints on operating, etc. 

Milewski, Richard A. "Apple-Cart" 

A column on the Apple II with software reviews. 

Butterfield, Jim "Games-Not Just For Fun" 

The author urges micro users to have fun with their computers; don't be ashamed of games and recreational 
programs. Creating programs is in itself a highly instructive experience. 

405. Dinnell, Rob C. "Graphics Program" 

Interface Age 3 Issue 11 pg 14 (Nov., 1978) 
Graphics program for the Apple II. 

406. Schumacher, Ernst "Sweets for KIM Spurned" 

Byte 3 No 11 pg 146 (Nov., 1978) 

A fix for a bug in the Sweets for KIM program, Byte Feb., 1978 pg 62. 
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407. Creative Computing 4 No 5 [Sept./Oct., 1978] 

Ahl, D.H. "Personal Computing: The size of the Market" 

Out of a total market for personal computers sold in the first three years of 150,000 units, PET is said to account for 
15000, TRS-80 for 8000 to 20000 and Apple for 25000 units. All others together account for 75000 to 100000. 

Ahl, D.H. "The Home Computer: A Tool Not A To/' 

An interview with Mike Scott, President, Apple Computer. 

Ahl, D.H. "Home Computers: The Nanie of the Came is Peripherals" 

An interview with Chuck Peddle, designer of the Commodore PET. 

Ahl, D.H. "Reliability and Mass Production" 

The most frequent computer problems over all manufacturers including the 6502 types fall into two categories: (1) 
Cassette recorder, mostly head misalignment and (2) overheating errors after running a while. 

North, Steve "PET Cassettes from Peninsula School" 

A review of software available from the Peninsula School of Monlo Park, CA. 

408. Anon, "12-Test Benchmark Study Results Show How Three Microprocessors Stack Up" 

EDN 22 No 21 pg 19 (Nov. 20, 1978) 

Once again the 6502 is shown to be substantially faster than the 8080 or 6800, as well as using less memory. 

409. Anon, "Project lndecomp~EDN Builds a computer System" 

EDN 22 No 21 pg 221-233 (Nov. 20, 1978) 

Outlines the beginning of this project that was to provide material for a number of articles to follow, principally on 
methods of interfacing to a tape deck. 

410 Schreirer, Paul G. "Low-Cost System Requirements Multiply Interface Headaches" 

EDN 23 No 3 pg 39-44 (Feb. 5, 1978) 

Interconnecting a cassette system to Indecomp proved tough due to strong chip-discrimination against the 6502 in 
this 8080/Z80 world. 

411 Call - Apple 1 No 10 [Nov./Dec, 1978] 

Anon, "Use of Apple II Color Graphics in Assembly Language" 
Tutorial article on graphics 

Jackson, Gene "Checkbook Changes for Disk" 

Modifications for this popular program for the Apple Disk. 

Paulson, Steve, "Using Game-Paddle Buttons" 

How to change keyboard control over to the paddle buttons. 

Anon, "& Now, the Further Adventures of the Mysterious Ampersand." 

Continued from last month— more on the functions of the character "&", in Applesoft routines. 

Wigginton, R. "Simple Tones-A Demonstration for Extensions to Applesoft II." 
Simple tone program for Applesoft II inside the Applesoft Program. 

Finn, Jeffrey K. "Apple-Sharing" Part I of II 

Part I of a tutorial article on time sharing and the Apple. 

Thyng, Mike "Apple Mash" 

This issue discusses how and why the DIMensioned statement works, Alpha String arrays, Integarand Floating Point 
Arrays, etc. 

Anon, "Peeks, Pokes and Calls" 

A discussion of the utility of these very useful tools. 

Thyng, Mike "Apple Source" 

Question and answer session with Mike Scott, President of Apple Computer and Randy Wigginton of Apple. 
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Colding, Val J. "Identifying Binary Disk Programs" 

Ways to help you save and identify machine language programs on disk. 

Anon, "Resurecting a Dead FP Program." 

Methods to help you retrieve an Applesoft II program that has blown up while you were working on it. 

412. Southeastern Software Newsletter Issue No 4 [Nov., 1978] 

Anon, "Hires Graphics" 

Examples of how to program in Hires machine language. Also includes a program in Applesoft II called Random 
Walk 

Anon, "How to Use "Quotation" Marks in a Print Statement." 
Tricky in Applesoft II to make the quote marks print. 

Hartley, Tim "How Memory is interpreted in Integar Basic" 
A program to list the tokens used in Integar Basic. 

Banks, Cuil "Programs for Disk" 

Two programs are given. EXEC GEN and READ FILE. 

Anon, "Applesoft in Firmware" 

A discussion of the use of the Applesoft II ROM card. 

413. Carpenter, C.R. [Chuck] "Pilot for the Apple" 

People's Computers 7 No 3 pg 4 (Nov./Dec, 1978) 

An extended version of PILOT for the Apple Disc II is being written. 

414 Cole, Phyllis "SPOT" 

People's Computers 7 No 3 pg 48-51 (Nov./Dec, 1978) 

Hints on using the Commodore PET include tips for loading balky tapes from the cassette, adding an auxilliary 
keyboard, and review of new software. 

415. Greenberg, Gary "Phone Directory" 

Personal Computing 2 No 12 pg 34-35 (December, 1978) 

A PET program provides rapid access to a phone number without a random access filing system. 

416. Zimmermann, Mark "Assembler for the PET" 

Personal Computing 2 No 12 pg 42-45 (December, 1978) 

This BASIC program lets you write in Assembly Language. 

417. Gable, G.H. "Zapper-A Computer Driven EROM Programmer" 

Byte 3 no 12 pg 100-106 (December, 1978) 

The Zapper is a Erom programmer using a KIM-1 as driver for the Zapper. 

418. Watson, Allen, III 430 Lakeview Way, Redwood City, CA 94062 

Byte 3 No 12 pg 208 (December, 1978) 

Notes on minimizing TV interference by the Apple II. 

419. Lantz, Kim H. "RTTY with the KIM" 

73 Magazine Issue 219 pg 170-173 (December, 1978) 

This article goes a step further and uses the KIM to deliver the RTTY to the HAL terminal. 

420. Anon. "Bringing up the New Disk" 

Southeastern Software Newsletter Issue No 5, Pg 2 (Dec, 1978) 

Hints and Kinks on putting that newly delivered Apple Disk to work. Making duplicate masters, creating random 
files, reading back files, transferring programs from one disk to another for backup, etc. 
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421. PURSER, ROBERT E. "Reference List of TRS-80, PET and APPLE II Computer Cassettes" 

Edition 4, November, 1978 (P.O. Box 466, El Dorado, CA 95623 
A very complete listing of software for the Apple II and PET is given. A few software reviews are given. 

422. MICRO No 8 (Dec, 1978-Jan., 1979) 

Dejong, Marvin L. "6502 Interfacing for Beginners: Buffering the Busses" 

The author continues his series of tutorial articles discussing the need for buffers, types of buffer chips and some ex- 
experiments and an application. 
Anon. "Microbes" 

An entire section of code from "Breaker: An Apple II Debugging Aid" MICRO NO 7 pg 5 was omitted and is given in this 

correction. Also a correction for Husband's "Design of a PET TTY Interface" Micro No. 6 pg 5. 
Suitor, Richard F. "Life for your Apple" 

A new version of LIFE has the generation calculations in assembly language to speed the program 
Reich, Dr. L.S. "Computer-Determined Kinetic Parameters in Thermal Analysis" 

A program for the quantitative estimation of kinetic parameters for the material being degraded such as activation energy 

and reaction order. Uses Apple II. 
Christensen, Alan K. "Continuous Motion Graphics or How to Fake a Joystick with the PET" 

Basic supported routines are too slow to allow smooth movement. Action is enhanced by direct access of screen and 

keyboard. 
Powlette, Joseph L. and Jeffery, Donald C. "Storage Scope Revisited" 

With the hardware changes suggested in this article the performance of Dejong's program to transform an ordinary 

oscilloscope to a storage scope gives results approaching those of a commercial unit. 
Auricchio, Rick, "An Apple II Program Relocator" 

A program to move an Assembly language program to another part of memory. Changes all absolute references within the 

program. 
Cieryic, John, "SYM-1 Tape Directory" 

Program to allow the SYM owner to examine his cassette tape to find what information is there. 
Anon. "The Best of MICRO Volume 1" 

A book containing most of the articles that were published in MICRO Volume 1 . 
Butterfield, Jim "Inside PET Basic" 

Two new programs for PET. FIND will search a PET BASIC program for a particular data string that will list the lines 

containing the string. RESEQUENCE will renumber your program fixing up COTO's and other functions. 
Connolly, M.R. Jr. "An Apple II Pagel Map" 

This article shows a clever method of creating all sorts of nifty effects, title pages etc on your Apple 
Dial, WmR. "6502 Bibliography, Part VII" 

Some 88 more references to the growing 6502 literature. 

423. PET Gazette (Oct./Nov., 1978) 

Anon. "Software Reviews — PET" 

Many reviews of PET software are to be found scattered through this issue of the Gazette. Also review of many new 

hardware items for PET. 
Staebel, Jon "PET Hints" 
PET Gazette 1 No 6 pg 6, (Oct/Nov., 1978) 

A discussion of the timer and built-in clock in the PET, examples of use. How to stimulate a repeat key on the PET. 
Barsanian A. "Tape Tips" 
PET Gazette 1 No 6 pg 8-9 (Oct/Nov., 1978) 

Some sensible tips on using PET tape cassettes, storage, copying. How to locate one program out of many on a tape. 
Cumberton, Dennis "Tape Tips" 
PET Gazette 1 No 6 pg 9 (Oct./Nov., 1978) 

Recommendations on the use of C-30 cassettes stripped down to C-10 equivalent. Comments on brands found 
satisfactory. 

Stone, Mike "Program Overlays" 

PET Gazette 1 No 6 pg 11-13 (OCT./Nov., 1978) 

Joining two programs. 
Anon. "New PET Booklet-PET Communicates with the Outside World" 
PET Gazette 1 No 6 pg 15-19 (Oct./Nov, 1978) 

Summary of the important information released including pinout for Parallel User Port, Second Cassette Interface, and 

Memory Expansion Connector. IEEE Bus Limitations, I/O Commands, I/O operations, Recording techniques, Error 

Detection, etc., etc. 
Lindsay, Len "Kilobaud Column for PET Users" 

Hints on programming with your PET, Use of the GET command. 
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424. Dr. Dobb's Journal 3 Issue 10 No. 30 (Nov./Dec, 1978) 

Bridge, Theodore E. "A Curve-Fitting Program Using a Focal Interpreter on the KIM-1" 

Focal is used with the KIM in a curve-fitting program. 
Swanks, Joel "Tiny GRAFIX for Tiny BASIC" 

Grafix is a system for graphic display on a small computer system, including Pittman's Tiny Basic, a SWTPC GT-6144 TV 

Graphics board, some machine language subroutines and a KIM-1 with 4K of memory. 
Oliver, John P. "Astronomy Application for PET FORTH" 

Using a newly available language PET-FORTH version 1 .0, a PET was used to provide control functions for a telescope. 

425. Kilobaud No. 25 Gan., 1979) 

Lindsay, len "PET Pourri" 

A new column on the PET has sections discussing Accessories, Publications, Software, Programming Hints, and PET 

Problems. A very helpful series of hints on Cassette recorder maintenance and saving data is included. 
Brisson, Dennis "New Products" 
6502 products include reviews on weight control/biorythm programs, a telephone cost-control center, the RS-16-HP 

"universal" interface for PET, a 6502 Assember for PET, a PET Word Processor, etc. 
Fuller, Steve "OSI User Group" 

The Newton Software Exchange, PO Box 518, Newton Center, MA 02158, is forming a user's group for OSI products, 

especially the Challenger series. 
Anon, "Letters" 

This month 6502 letters refer to the November article "Do It with a KIMSI", the September Article "Super Cheap 2708 

programmer, etc. 
Lang, George E. "u-Panel" 

See the reaction of every register of your microprocessor as you single step your KIM through a program. 
Ketchum, Don "Display Your PET" 

Watch the Monitor screen as all 316 PET characters appear on the Screen 
Carpenter, Charles R. "SHHH... People are Sleeping" 

The Telpar PS-40-3C-1 serves as a quiet and economical substitute for a noisy and expensive teletype. 
Yob, Gregory "PET Techniques Explained" 

Supplementing information from Commodore, this article gives information on cassette files. 

426. Calculators/Computers Magazine 2 Issue 7 (Nov./Dec, 1978) 

Costello, Scott H. "Hilo-A Number-Guessing Program that Illustrates Several Math Concepts" 

Modifications for the program to run on several different computers, including PET are given. A number of variations 
are suggested. 

Albrecht, Bob and Albrecht, Karl "PET BASIC for Parents and Teachers" 
An explanation of many of the keys on the PET keyboard. 

427. Dr. Dobb's Journal 4 Issue 1 Number 31 (Jan., 1979) 

Seiler, Bill "PET BASIC Renumber" 

A program to put your line numbers in a more ordinary list. 
Moser, Carl W. "Add a Trap Vector for Unimplemented 6502 Opcodes" 

Ideas on how to provide hardware and a program to ferret out those hidden opcodes 
Aresco, P.O. Box 43, Audubon, PA 19407 "6K Assembler/Text Editor for Apple 1 1" 

A 6K machine language for the Apple II. 
Terc Services, 575 Technology Sq., Cambridge MA 021 39 "KIM-1 Interface Set" 

Permits easy access to the I/O ports on the KIM. 

428. Byte 4 No. 1 (Jan., 1979) 

Helmers, Carl "Pascal Progress" 

The University of Calif at San Diego plans to make the UCSD Pascal system available on Apple II computer early in 1979. 
PRS The Program of the MonthCorporation, 257 Central Park West New York, NY. 10024 

A2FP is a Plotting Program for Apple 1 1 which plots 2-dimensional functions in high resolution graphics. 
Leff, Alan A. and Boos, D.L. "A Timely Modification to KIMER" 

Modification of the Baker program "Kimer: A KIM-1 Timer" Byte, July 1978, pg12 to allow it to run as 12 hour clock. 
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429. Recreational Computing 7 No 4 Iss 37 (Jan./Feb., 1979) 

Carpenter, Churck "APPLE II Easy I/O Sensing and Control". I/O control using the Apple II game connector. 

Wells, Arthur ) r. "Some New Uses for Apple 1 1". Debugging PONG, use of Modem, etc. 

Shanis, Daniel"Breaking Trail in Alaska with Apple II". A project using 32K Apple II computers with diskettes 

in 9 remote village schools. 
Swenson, Carl"Building a H l-RES SHAPE TABLE for the APPLE 1 1". Heres a way to create your favorite shapes. 
Saal, Harry "SPOT". Tips for the PET Owners. A machine language tape with two BASIC programs is available 

from Commodore. Also a manual on communication with the outside world. A PET SERVICE KIT from 

Commodore includes schematic diagrams and parts lists, a diagnostic jumper connector with diagnostic 

tapes, etc. Information on the "lost cusor fix". Head Alignment. 

430. MICRO No 9 (Feb., 1979) 

Reich, Dr. L.S. "Long Distance Interstate Telephone Rates". An Applesoft II program for phone rates which can 

be modified for PET or OSI computers. 
Bullard, GARY J. "The Sieve of Eratosthenes". A prime numbers BASIC program for the PET. 
Hertzfeld, Andy "Exploring the Apple 1 1 DOS". Useful information for disk users. 
Dejong, Marvin L. "6502 Interfacing for Beginners: An ASCII Keyboard Import Port". Shows a system for the 

KIM with both polled or interrupt methods of service the device. 
Tater, Gary L. "Two Short TIM Programs". One program provides a method for communcation with TIM at 

1 200 BAUD or higher. Another offers a TIM Operating System Menu. 
Tripp, Robert M. PhD "Ask the Doctor-Parti". A comparison of the KIM, SYM and AIM microcomputers. 
Watson, Allen "Two APPLE II Assemblers: A comparative Software Review". Advantages and disadvantages 

of the Microproducts and S-C Assemblers for the Apple II. 
Rowe, Mike "THe MICRO Software Catalog: V". Reviews of about one dozer programs for 6502 based systems. 
Rittimann, Russell "Expand Your 6502-Based TIM Monitor". A modification of the TIM system to expand the 

command set so that ROM resident programs or routines can be executed from within TIM. 
Dial, Wm R. "6502 Bibliography- Part VIII". The 6502 literature continues to expand. 
Sandberg, Gary P how Does 16 Get You 10?". Hexadecimal/Decimal conversions for the Apple. 
Herman, Harvey B. "How Does Your ROM Today". Programs and techniques for testing the KIM and PET ROMs. 
Bridge, Theodore E. "Life for the KIM-1 and an XITEX Video Board". Program runs on a 16K Kim. 

431. CONTACT Newsletter No 4 (Dec. 1979) 

Anon "Apples work PIA's". A note to the effect that the problems reported earlier by END magazine on the 
apparent incompatibility of the Apple with PIA's have been resolved and that EDN now believes this long 
saga must have had its source in human error. (See EDN Magazine, Sept. 20, 1978) 

Anon, "The Colon as a Listing Formatter for Applesoft". How to indent your listings for neatness and easy 
reading. 

Annon "Disk Operating System Notes". Includes Notes on Data Format, Using Random-Length Records, Using 
Fixed-Length Records, Appending Files, DOS Error Codes, Cetting Commas into Applesoft, etc. 

432. Dr. Dobb's Journal 4 No 32 Issue 2 (Feb., 1979) 

Gordon, H.T. "An Unusual Pseudorandom Number Generator Program". Program for the KIM-1. 

Carpenter, Chuck "Reset Adapter". How to avoid accidental loss of programs involving the reset button on the 

Apple II 
Prigot, Jonathan M. "Loading Kim's Cassettes". How to load OSI cassettes into the KIM. 

433. Byte 4 No 2 (Feb., 1979) 

Libes, Sol "Byte News". Atari has two new 6502 based computers. According to the latest sales reports, more 
6502 microprocessors are being manufactured than any other uP. Most of the volume goes to high volume 
game use. 

Mathews, Dr. Randall S. "An Apple and the Queens". An Eight Queens program for the Apple. 

Raskin, Jef "Unlimited Precision Division". A BASIC program for unlimited integer division. 

434. Kilobaud No 26 (Feb., 1979) 

Green, Wayne "Publisher's Remarks". A review of OSI's new units the Ipand IIP Challengers. 

Lindsay, Len "PET Pourri". Accssories for the PET include a voice input module, a sound output module, 
Joysticks, a digital plotter, a light pen, and an S-100 adapter for the PET. How to add sund to your PET and 
sound programming instructions New languages to supplement Basic are PILOT and PETFORTH. New 
sources of information on the PET are the PET Manual and a manual called PETABLE, as well as a newsletter 
called Sphinx. Programming tips cover the GET, ON. . .GOSUB, and others. A new wrinkle for recovering 
programs from faulty tapes is given. 
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Flogel, Ekkehard "Apple and the PIA". Contradicting the troubles reported by EDN magazine, a board was 
developed with a PIA 6520 on it to put an Apple II and a KIM together. Programs can be sent from one unit 
to the other and vice versa. 

Price, David "Music, Maestro". The AD8 is a computer-controlled synthesizer system using a 6502 
microprocessor and a 6820 I/O port. 

Bishop, Robert). "The Apple Speaks. . .Softly". Apple II Voice digitizer. 

435. Calculators/Computers Magazine 3 No 1 (Jan./Feb., 1979) 

Day, J im "High-Resolution Apple Art". Applesoft 1 1 program for various shapes. 

Albrecht, Bob and Karl "PET BASIC for Parents and Teachers". PET Conventions in a simple snimation program. 

436. 73 Magazine No 221 pg 21 (Feb., 1979) 

Birman, Paul "Petting". How to find the end of a program on tape when you want to load a new program into 
your PET. 

437. Personal Computing 3 No 2 pg 63-74 (Feb., 1979) 

Gerue and McNeil, "Chess Challenger-10 Wins Microchess Tourney". Microchess 2.0, Peter Jennings entry, 
took fourth place. This is 6502 based. 

437. Creative Computing 5 No 1 (Jan., 1979) 

Yob, Gregory "Personal Electronic Transactions". New products described are Expandapet memory, PET ROM 

disassemblies, a useful book on what the PET rom is all about, Some data on the User Port, PET Video Slave 

display, Exploring PET random numbers, PET sounds and music, etc. 
Wells, Ralph "HOw about a 'Counterfeit Cursor' For your PET?". Enables one to use the cursor in games or 

under better control. 
Heuer, Randy "Ohio Scientific Superboard II and Challenger 1P". A review of OS I's new lost cost micro. 
Rugg and Feldman "Speed Reading Made Easy. ..via Your PET". This program turns your computer into a 

tachnistoscope to teach improved reading habits. 
Milewski.Richard A. "Apple-Cart". All about Data Files on diskettes. Simple file accessing statements, Sample 

serial access programs, and some software reviews. 



NOTE: The Bibliography is continued from "The BEST of 
MICRO Volume 1". 
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